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Capitolul 8. Cuplări de echipamente periferice, 


interconectări şi aplicaţii 
ale microcalculatorului aMIC. 


În acest capitol se vor prezenta o serie de aplicații, care urmăresc atît 
extinderea gamei de echipamente periferice, cit şi utilizarea microcalculato- 
rului în cadrul unor sisteme dedicate. Astfel, se descriu aplicații referitoare la 3 

— cuplarea la microcalculatorul aMIC a unor LED-uri și comutatoare. 

— cuplarea la microcalculatorul aMIC a unui convertor numeric-analogic, 

— cuplarea  microcalculatorului aMIC cu microcalculatoarele FELIX 
M18, M118, 

— cuplarea la calculatorul aMIC a unui echipament de desenare şi indi- 
care pe ecran de tip „JOYSTICK“, 

— cuplarea unui convertor analog-numeric la mierocalculatorul aMIG, 

— utilizarea  microcalculatorului aMIC pentru simularea unui circuit 
logic, 

— cuplarea miniimprimantei MIMA40 la microcalculatorul aMIC, 

— cuplarea unui programator de memorii de tip EPROM la microcal- 
culatorul aMIC, 

— microcalculatorul aMIC cuplat cu terminalul DAF2010, 

— interfaţarea microcalculatorului aMIC cu un minirobot, 

— folosirea microcalculatorului aMIC în cadrul unui echipament pentru 
testarea microsistemelor orientate pe magistrală. 

— utilizarea  microcaleulatorului aMIC ca unitate pentru deservirea 
mașinilor unelte, 

— utilizarea microcalculatorului aMIC ca sistem de înregistrare/redare a 
parametrilor semicontinui de proces, 

— utilizarea microcaleulatorului aMIC în laborator pentru prelucrarea 
datelor provenite din analiza cromatografică. 


8.1. Cuplarea unor LED-uri şi comutatoare 


Utilizînd interfaţa paralelă de care dispune microcalculatorul personal 
se pot conecta la acesta diferite dispozitive numerice. Cel mai simplu exemplu 
îl reprezintă cuplarea unor led-uri și comutatoare. 

Interfața paralelă este constituită dintr-uu circuit 8255 suplimentar, 
care are liniile porturilor A, B şi C, fiecare de vite 8 biţi, legate la un conector 
de pe earcasa microcalculatorului. la portul A -s-an conectat 8 comutatoare, 
fiecare avînd posibilitatea să furnizeze independent. nivelele logice 1 sau $. 
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La portul C s-au conectat 8 led-uri, care vor fi stinse sau aprinse, după cum 


biții corespunzători ai circuitului 8255 sînt 1 sau (0. Schema este prezentată 
în figura 8.1. 
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Fig. 8.1. Cuplarea unor led-uri și comutatoare. 


Pentru această aplicație circuitul 8255 suplimentar a fost programat 


în modul () de lucru cu portul C pentru ieşire, iar porturile A şi B pentru intrare. 
Adresele acestor porturi sînt : 


— 40H: portul A; — 42H: portul C; 

— 41H: portul B; — 43H î portul de comandă. 

În continuare se prezintă programul care realizează citirea permanentă 
a comutatoarelor și afişarea stării acestora la led-uri. 


Program de aplicație pentru interfala paralelă 
START: MVI A, 92H ; încarcă în acumulator cuvintul de comandă 


OUT  43H ; transmite la circuitul 8255 
BUCLA : IN 40H ; citeşte portul A în acumulator 

CMA ; complementează acumulatorul 

OUT  42H ; transmite în portul C 

IMP BUCLA ; reluare. 


8.2. Cuplarea unui convertor numeric-analogic 


Microcalculatorul personal poate comanda un proces analogic simplu 
prin interfaţarea unui convertor numeric-analogic. Valoarea numerică ce este 


furnizată convertorului se obține ca urmare a unor calcule sau prin prelucrarea 
unor date externe. 


2? 


Cuplarea unui convertor numeric-analogic g% 


În acest exemplu s-a realizat interfaţarea unui convertor numeric-analogic 
pe 8 biţi, DACOB, la magistrala sistemului. Acest lucru a fost posibil deoarece 
semnalele magistralei de date, adresele și comenzile au fost legate la un conec- 
tor de pe carcasă. Schema bloc a montajului este prezentată în figura 8.2. 
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Fig. 8.2. Schema bloc pentru cuplarea unui convertor numeric analogic. 


Aceasta se compune din logica de decodificare a adresei, un registru de date 
de 8 biţi şi convertorul DACO. Schema electrică completă a interfațării conver- 
torului se prezintă în figura 8.3. 

Realizarea semnalului analogic de la ieşire constă în înscrierea în registrul 
de date a unor valori numerice pe 8 biţi la momente de timp bine stabilite. 

În continuare se prezintă programul în limbaj de asamblare care reali- 
zează la ieşirea convertorului un semnal în dinți de fierăstrău. Transmiterea 
datelor se face prin instrucţiuni de ieşire (OUT) cu adresa 60H. 


Progrum de aplicaţii pentru DACOS. 


START: MVI A,0 ; inițializarea acumulatorului cu zero 
BUCLA: COUT  60H ; ieşire în registrul de date 
INR A ; incrementează acumulatorul 


IMP BUCLA ; salt la reluare. 
Pentru a varia perioada semnalului analogic se poate utiliza o subrutină de așteptare ; 


STARI: MVI A, ; inițializarea acumulatorului cu zero 
BUCLA: OUT  60H ; înscrie în registrul de date 
INR A ; încrementează acumulatorul 


CALL WAIT  ; reglează perioada semnalului 
IMP BUCLA ; salt la reluare 
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“10 „15v 
Fig. 8.3. Schema cuplării convertorului numeric-analog DACOB la ma- 
gistrala microcalculatorului „aMIC*, 
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WAIT: LXI  D,500H; această valoare reglează perioada 
PUSH PSW ; salvează acumulatorul 
ETI: DCX D ; decrementează contorul 


MOV A,D ; încarcă registrul D în A 

ORA E ; SAU logic între A și E 

INZ  ET1 ; reluare dacă diferit de zero 
POP  PSW ; reface acumulatorul 

RET ; revenire în programul principal. 


8.3. Interconectarea cu microcalculatoarele Felix M15, M118 


Cuplarea microcalculatorului personal la sistemele de calcul FELIX M18 
şi M118 se tace prin interfaţa serială standard RS 232. 

În acest scop „aMIC“ a fost dotat cu un con ctor de 25 de contacte la 
care sînt legate semnalele circuitului 8251. Un conector asemănător există 
și la M18/118. 

Conectarea celor două sisteme se face printr-un cablu cu trei linii după 


schema prezentată în figura 8.4. Se utilizează conectori RACK cu 25 de contacte, 
de tip „tată“. 
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Fig. 8.4. Cablul de interconectare „aMIC* — 
FELIX M18/118. 


Ceilalţi pini din conectori, nzindicați în desen, sînt lăsați neconectaţi. 

Pentru realizarea comunicației pe fiecare din cele două sisteme rulează 
cîte un program. În continuare se prezintă un exemplu care transferă 100 de 
octeți din memoria microcalculatorului FELIX M18/118 de la adresa 6000H 
în memoria microcalculatorului „aMIC* la adresa 660DH. Un asemenea procedeu 
este deosebit de util, deoarece pe M18/118 se pot introduce şi pune la punct 
programe complexe pentru „aMIG* utilizîndu-se resurse software evoluate 
disponibile pe aceste sisteme, apoi aceste programe sînt transferate la micro- 
calculatorul personal pentru a îi rulate. 


În scopul realizării transferului de date pe microcalculatorul „aMIG“ 
se rulează un program de recepţie a octeților transmişi pe linia serială. 
7 Program de recepţie a datelor pe linia serială 


START: MVI  A,0CEH ; cuvîntul de mod 
0UI. 1 ; transmite la 8251 
MVI  A,27H ; cuvîntul de comandă 


12 Cuplări de echipamente periferice, interconectări și aplicaţii 


OI 14 ; transmite la 8251 
LXI  H,6600H ; în H, L adresa de început 
MVI  C,109 ; contorul de octeți 
BUCLA : IN 1 ; bucla de citire a stării circuitului 8251 


ANI 2 ; test bit 1 

JZ UCLA  ; dacă 0,aşteaptă 

IN [!) ; citește octet 

MOV M,A ; înscrie în memorie 

INX H ; incrementează adresa 

DCR C ; decrementează contorul 
INZ BUCLA ; dacă diferit de zero, reface 
IMP 9 ; altfel intră în monitor 


Pe microcalculatorul FELIX M18/118 rulează un program de transmisie a octeţilor dim 
memorie pe linia serială. 


Program de transmisie a datelor pe linia serială 


START: MVI  A,40H ; cuvintul de comandă pentru 8251 


OUT  0F7H ; realizează inițializarea circuitului 
MVI  A,0CEH ; cuvintul de mod 
COUT  QF7H ; transmite la 8251 
MVI  A,27H ; cuvîntul de comandă 
OUT  0E7H ; transmite la 8251 
LXI  H,6000H ; în H, L adresa de început 
MVI  C, 100 ; contorul de octeți 

BUCLA : IN QF7H ; citeşte starea 
ANI 4 ; test bit 2 
JZ BUCLA  ; dacă este zero, așteaptă 
MOV A,M ; citeşte octet din memorie 
OUT  0F6H ; transmite la 8251 
INX H ; incrementează adresa 
DCR C ; decrementează contorul 
INZ BUCLA  ; dacă diferit de zero, reluare 
RST 0 ; revenire în monitor 


Cele două programe se execută în acelaşi timp, dar cu menţiunea că pro- 
gramul de recepţie a datelor se lansează primul. 


8.4. Cuplarea unui JOYSTICK 


Joystick-ul este un dispozitiv utilizat în conjuncţie cu terminalele grafice 
pentru specificarea manuală, de către utilizator, a coordonatelor unui punct 
pe ecran. 

Joystick-ul constă dintr-o articulaţie sferică, cu o manetă fixată de partea 
sferică mobilă, ale cărei deplasări unghiulare sînt transiormate în variaţii 
ale rezistenţei electrice a doi potențiometri, corespunzînd coordonatei orizon- 
tale, respectiv verticale. Variaţiile de rezistenţă sînt transformate apoi în va- 
riaţii de semnal electric, care — la rîndul lor — sînt convertite în valori numerice. 
Aceste valori numerice sînt preluate de sistemul de calcul și, prin metode 
s oftware sau hardware (la echipamentele care cer viteză mare de lucru), sînt 
transformate într-un punct sau cursor grafic, afişat pe ecran. Este posibilă 
afișarea întregului traseu impus punctului curent, adică desenarea comandată 
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de la joystick. Este, de asemenea, posibilă introducerea unor funcții suplimen- 
tare, care să permită utilizarea acestui dispozitiv în diferite aplicaţii. 

Cuplarea unui joystick la microcalculatorul „aMIC“ se face prin interme- 
diul interfeţei paralele, utilizînd numai patru biţi ai circuitului 8255. Schema 
prezentată în figura 8.5 conţine două circuite CDB4I21E. 


—DMBEO 


Tea „DELETE 
Cea DRAW 


. RESTART 
rea 


Fig. 8.5. Interfaţă pentru joystick. 


CDB4121E este un circuit basculant monostabil avînd două intrări de 
condiționare active pe front negativ şi o intrare activă pe front pozitiv. Tabela 
de funcţionare și configuraţia pinilor sînt prezentate în figura 8.6. Durata 
impulsului obținut la ieșire se poate varia între 20) ns şi 28 s utilizînd compo- 
nente pasive externe. Fără componente externe, avînd intrarea Rint conectată 


INTRĂRI 


IEȘIRI 


H —nivel logic 1 
L —nivel logic O 


i Pa E XX re 


> 
| 
nec 25 Ea s-a fe CI pm adi ci =] 
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Fig. 8.6. Tabela de funcţionare şi configuraţia pinilor la circuitul CDB 421E. 
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la Vcc, iar intrările Cest Şi Rext/Cex+ lăsate neconectate, se obține un impuls 
cu durata spec fică de 30—35 ns. 
Pentru valori ale capacităţii externe cuprinse între 10pF şi 10 uF iar 


ale rezistenţei externe cuprinse între 2KQ0 şi 40 KO durata impulsului t se 
calculează cu formula : 


tu =0,7 Ce Rex 


în care capacitatea este în pF, rezistența în KO, iar durata impulsului se ob- 
ține în ns. 

Pentru determinarea valorilor potențiometrelor, deci pentru a determina 
poziţia curentă pe ecran, se furnizează un impuls pozitiv (trecere de la () logic 
la 1 logic) pe bitul 0, respectiv 1 al portului C din circuitul 8255. După furnizarea 
unui asemenea front pozitiv, se așteaptă prin program o perioadă de timp 
care corespunde cu valoarea minimă a rezistenţei potenţiometrului (poziţia 
stînga pentru orizontală, respectiv poziţia sus pentru verticală), după care 
începe contorizarea pînă la terminarea impulsului furnizat de monostabil 
(trecerea din 1 logic în () logic a ieşirii Q a acestuia) şi care este citit prin portul 
B în bitul 0, pentru orizontală, respectiv în bitul 1, pentru verticală. Bucla 
de contorizare din program este în așa fel calibrată încît, cu aproximaţie, să 
se înregistreze o valoare cuprinsă între 0 și FFH, corespunzătoare celor două 
poziţii extreme (pe orizontală şi — de asemenea — şi pe verticală). În figura 
8.7 se prezintă semnificaţia valorilor celor două contoare şi modul de determinare 
a adresei octetului pentru memoria ecran și al bitului din cadrul octetului de 
date. Deoarece memoria ecran este cuprinsă între adresele 400001 —5FFFH, 
în poziţiile cele mai semnificative A15—A13 se găseşte configuraţia 010. 


VERT ORIZ 
a stg e ma ai hote la Je 80! As PSR ec i 0 UA 6) 
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1514.13 1211098 rail Pai Ec 8 PI Ho) 
ADRESA 


Fig. 8.7. Determinarea adresei din memoria video şi octetul de 
date, pornind de la valorile celor două contoare VERT şi ORIZ. 


Ceilalţi biţi de care dispune interfața paralelă se pot utiliza pentru imple” 
mentarea unor funcţii. În exemplul considerat se utilizează încă 6 biţi din por- 
tul B al circuitului 8255, avind următoarele semnificaţii : 

— PB7: RESTART — relansează programul de joystick ; 

— PB6: MONITOR — execută revenirea în monitor (start de la adresa 0) 
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— PB5: DISPLAY — anulează o funcţie anterioară, realizînd numai 
afişarea punctului curent, fără să modilice imaginea de pe 
ecran (deci nici memoria video) ; 

— PB4: DRAW — marchează traseul parcurs de la punctul curent pe 
ecran prin puncte aprinse (biţi O în memoria video): 

— PB3: DELETE — şterge contururile de pe traseul parcurs de punctul 
curent, adică stinge punctele aprinse. În memoria video se 
înscrie 1 în biții egali cu () de pe traseu; 

— PB2: VIDEO — schimbă polaritatea punctelor de pe traseu (execută 
video invers). Această funcţie înscrie 1 în biții egali cu 0, res- 
pectiv înscrie (0 în biții egali cu 1 din memoria video. 

Programul de interfaţă pentru joystick este scris în limbaj de asamblare, 

iar organigrama sa este prezentată în figura 8.8. După lansarea programului 
În execuţie, dacă nu se apasă nici un buton funcţional, ecranul este şters și se 
afișează punctul curent care se deplasează simultan cu acţionarea joys tick-ului, 


INIȚIALIZĂRI 


Start 
odreso e 


Fig. 8.8. Programul de interfață pentru joystick (organigramă) 
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Dacă se apasă oricare din butoanele DRAW, DELETE sau VIDEO, 
se execută în continuare funcția respectivă (fără ca să se menţină butonul 
apăsat), pînă cînd se apasă unul din butoanele RESTART, MONITOR sau 
DISPLAY. 

Programul prezentat în acest exemplu realizează o traducere a poziţiei 
articulației joystick-ului în coordonate pe ecran (respectiv adresă și octet de 
date pentru memoria video). Dezavantajul acestei soluţii este o sensibilitate 
deosebită a punctului curent (cursorului) de pe ecran faţă de orice mișcări 
ale tijei dispozitivului. Pentru eliminarea acestui neajuns se pot utiliza alte 
metode de interfațare a joystick-ului, ca de exemplu : 

— poziţia tijei (a articulației) să indice direcția dintr-un număr finit 
şi eventual mic de direcţii posibile şi viteza (trepte discrete de viteză) pentru 
cursorul de pe ecran. Deplasarea 
se face din poziţia curentă în 
direcția şi cu viteza date de 
joystick. Poziţia centrală a tijei 
corespunde cu poziția de repaus 
a cursorului. Această “soluţie este 
ilustrată în figura 8.9, pentru 
8 direcţii posibile şi două trepte 
de viteză; 

„— cu ajutorul joystick-ulu 
se marchează un punct pe ecran 
după care o funcţie implementată 
pe sistem realizează unirea punc- 
tului curent cu noul punct mar- 
cat ; în felul acesta se pot exe- 


cuta desene pe ecran cu o 


recizie maximă în limitele rezo- 
Fig. 8.9. Interpretarea poziţiilor tijei joystick- p ie i za 4 Si 
ului. luţiei disponibile. 


REPEDE 
DREAPTA 


REPEDE 
STINGA 
SUS 


ÎNCET 
DREAPTA 
SUS 


ÎNCET |REPEDE 
DREAPTA [DREAPTA 


REPEDE 
JOS 


; Program de interfață pentru joystick 


ORG  6100H 
START: LXI  SP,STIVA  ; iniţializare indicator de stivă 
CALL CLEAR ; șterge ecranul televizorului 


MVI A,9H ; cuvînt de comandă: mod 


OUT  43H ; înscrie în 8255 
LXI  H,A400011 ; inițializare ADR2 
SHLD ADR2 
MOV A,M ; citește octet din memoria video 
STA  DAT2 ; iniţializează DAT2 
ET2: CALL PORTB ; citeşte port B și test biții 7, 6,5 
JZ ET1 ; salt dacă PB7=PB6=PB5=1 
ETA: RAL ; în CY trece PB? complementat 
JC START ; dacă PB7=(), relansare program 
RAL ; în CY trece PB6 complementat 


JC 0 ; dacă PB6=(, revenire în monitor 
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secvența DISPLAY pentru PB5=(0 


DISPL + CALL 
LHLD 
LDA 
MOV 
LHLD 
MOV 
STA 
SHLD 
MOV 
LDA 
ANA 
MOV 
IMP 

ETi! MOV 
ANI 
INZ 


COORD 
ADR2 
DAT? 
M, A 
ADRI 
A,M 
DAT? 
ADR2 
B,A 
DATI 
B 

M, A 
ET2 
A,B 
10H 
ET3 


; secvenţa DRAW pentru 


DRAW: CALL 
LHLD 
MOV 
LDA 
ANA 
MOV 
CALL 
INZ 
IMP 

ET3!: MOV 
ANI 
INZ 


COORD 
ADRI 
B, M 
DATI 
B 

M, A 
PORTB 
ET4 
DRAW 
A,B 

8 

ET5 


. 
» 
. 
» 
» 
, 
, 
, 
» 
» 
, 
» 
E] 
Ei 
» 


» 
» 


determină coordonatele curente 
în H, L vechea adresă 


; în H, L vechiul octet 


reface în memoria video 
în H, L noua adresă 


; citește octetul de date 


salvează data 

și adresa 

salvează în registrul B 

încarcă în A noul octet de date 
aprinde punctul curent 

înscrie în memoria video 
reluare 


; reface A cu conţinutul portului B 
; testează bitul PB4 
; salt dată PB4=1 


PB4=0 


» 
» 
» 
» 
Ei 
» 
» 
, 
» 


determină coordonatele curente 
în H, L noua adresă 
în B octetul de date vechi 


; citește noul octet de date 

; aprinde punctul curent 

; înscrie în memorie 

; citește port B și test biții 7, 6, 5 
; salt dacă cel puţin un bit este 0 
; altfel, reluare 

; reface A cu conţinutul portului B 
; testează bitul PB3 

; salt dacă PB3=1 


3 secvenţa DELETE pentru PB3=0 


DELET : CALL 
LHLD 
MOV 
LDA 
CMA 
ORA 
MOV 
CALL 
INZ 
IMP 

ET5: MOV 
ANI 
INZ 


COORD 
ADRI 
B, M 
DATI 


B 

M, A 
PORTB 
ET4 
DELET 
A,B 

4 
DISPL 


determină coordonatele curente 


; în H, I. noua adresă 


; citește în B vechiul octet 


Ei 
» 
» 
» 
, 
» 
» 
ti 
» 
» 


încarcă în A noul octet 
complementează 

stinge punctul curent 

înscrie în memoria video 

citește port B și testează biții 7, 6, 5 
salt dacă cel puţin un bit este 9 
reluare 

reface A cu conţinutul portului B 
testează bitul PB2 

salt dacă PB2=1 


3 secvenţa VIDEO pentru PB2=0 


VIDEO: CALL 
LHLD 
MOV 


LDA 
CMA 
XRA 
MOV 
CALL 
INZ 
IMP 


COORD 
ADRI 
B, M 


ADRI 


B 

M, A 
PORTB 
ET4 
VIDEO 


» 
» 
» 
» 
» 
» 
» 
» 
» 


determină coordonatele curente 
în H, L noua adresă 


; în B octetul de date vechi 
; în A noul octet 


complementează octet 


; complementează punctul curent 

; înscrie în memorie 

; citește portul B și testează biții 7, 6, 5 
; salt dacă cel puţin un bit este 0 

; reluare 
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1 subrutina COORD 

ș determină coordonatele punctului curent 

4 furnizează la ADRI1 adresa din memoria video 
ș și la DATI octetul de date 


EOORD:MVI D,2 ; setează bitul 1 
CALL XY ; determină coordonata X 
STA  ORIZ ; memorează și variabila ORIZ 
MVI D,1 ; setează bitul 
CALL XY ; determină coordonata Y 
STA  VERT ; memorează în variabila VERT 


+ secvența care determină adresa pentru memoria ecran 
1 și octetul de date 


LXI  H,4000H1 iniţializare H, L 


LDA  ORIZ ; citește contorul pentru orizontală 
ANI  0FBH ; anulează biții A2-A0 
RRC ; aduce A7-A3 în poziţiile A4-AG 
RRC 
RRC 
MOV L,A ; încarcă în registrul L 
LDA  VERT ; citește contorul pentru verticală 
ANI 7 ; preia biții A2-A() 
RRC ; aduce informația în poziţiile A7-A5 
RRC 
RRC 
ORA L ; concatenează cu informaţia din L 
MOV L,A ; încarcă în registrul L. octetui mai puţin semnificativ de 
; adresă 
LDA  VERT ; citește contor pentru verticală 
ANI FSH ; preia biții A7-A3 
RRC ; aduce în poziţiile A7-AG 
RRC 
RRC 
ORA H ; concatenează cu informația din H 
MOV H,A ; încarcă în registrul H octetul mai semnificativ de adresă 
LHLD ADR1 ; depunde adresa la ADRI 
LDA  ORIZ ; citește contorul pentru orizontală 
ANI 7 ; preia biții A2-Ap 
MOV L,A ; încarcă în L 
MVI  A,7FH ; iniţializare octet date 
INR L 
4D2: DCR L ; poziţionează indicatorii 
JZ ADI ; dacă L=0, stop 
RRC ; altfel, deplasează bit=() (punct aprins) 
JMP  AD2 ; reluare 
4D1: STA DAŢI ; depune octetul de date la adresa DATI 
RET 


ş subrutina XY 

) poziţionează contorul pentru orizontală 

$ sau pentru verticală 

ș furnizează rezultatul în A (contor între și FFEH) 


XY: MVI A, ; bit 0, bit 1==0 din portul C al circuitului 8255 
OUT  42H ; trimite la 8255 
MOV A,D ; poziţionează pe 1 bitul corespunzător pentru orizoatală 
; sau pentru verticală 
OUT  42H ; trimite la 8255, declanşează monostabilul 
MVI  C, 0FFH ; inițializare contor 
XYi: IN 41H ; citește port B al circuitului 8255 


ANA D ; test bit 1/0 


Cuplarea unui JOYSTICK 19 


JZ XY1 ; așteaptă impulsul monostabilului 

MVI A,4 ; secvenţa se execută de patru ori 
WAIT: MVI B,84H ; contor 

DCR B 

INZ  WAIT+2 

DCR A 

INZ WAIT 


începe incrementarea contorului 
XY2. INR GC 


IN 41H ; citește port B 
ANA D ; test bit 0/1 
NOP ; calibrarea contorizării 
NOP 
NOP 
INZ  XY2 ; aşteaptă terminarea impulsului 
MOV A,C ; transferă rezultatul în A 
RET 
; zona de variabile program 
ORIZ: DS 1 ; contorul pentru orizontală 
VERT: DS 1 ; contorul pentru verticală 
ADRI: DS 2 ; adresa nouă pentru memoria video 
ADR2: DS 2 ; adresa veche 
DATI: DS i! ; noul octet de date 
DAT2: DS 1 ; vechiul octet de date 
DS 10 ; stiva program 
STIVA: DS 1 


END START 


8.5. Cuplarea unui conventor analog-numeric 


Microcalculatorul personal are posibilitatea să efectueze măsurări de 
mărimi analogice, eventual extrase dintr-un proces, prin conectarea unui con- 
vertor analog-numerie. Interfaţarea convertorului la sistem se face prin circui- 
tul 8255 suplimentar (interfața paralelă). Se poate executa conversia unei 
singure mărimi analogice sau a mai multora succesiv ; în acest ultim caz, 
mărimile analogice sînt aduse la intrarea convertorului prin intermediul 
unui multiplexor analogic. Selecţia, intrărilori multiplexorului se tace prin 
intermediul circuitului 8255. 

Schema de principiu este prezentată în figura 8.10. Se utilizează un Mata 
plexor analogic 16 : 1, iar selecţia se realizează prin biții PC3-PCO ai portului 
& din circuitul 8255. Convertorul analog-numeric este pe 12 biţi, avînd o intrars 
de comandă START conversie, conectată la bitul PC7 al circuitului 8255. Un 
front pozitiv pe această intrare lansează operaţia de conversie. Biţii de date 
interiori D0—D7 sînt conectaţi la pinii PAD-PA7, iar biții de date superiori 
D8-D11 la pinii PBO-PB3. De asemenea, convertorul mai dispune de un semnal 
pentru a anunţa sfîrşitul conversiei, STOP conversie, conectat la „pinul _PB7. 

În continuare se prezintă lista instrucțiunilor de intrare/ieșire şi semniii- 
caţiile fiecăreia : 

OUT 42H ; biții A3—A0 selectează una din cele 16 intrări analogice 
OUT 42H ; bitul A7=1 lansează operaţia de conversie 
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INTRĂRI 
ANALOGICE 


MULTIPLEXOR 
ANALOGIC 
16:? 


SELECTIE 
Sp S1 S2 S3 


Fig. 8.10. Cuplarea unui convertor analog-numeric. 


IN 4I1H; citeşte în A7 bitul STOP conversie 
IN  40H; citeşte în A7—AG biții de date D7—D0 numai după terminarea 
; conversiei 

IN 41H; citeşte în A3—AV biții de date D11—D8 
OUT 42H ; bitul A7=—() resetează convertorul 

Programul care urmează execută succesiv conversia analog-numerică a 
celor 16 intrări înscriind rezultatele în memorie, fiecare pe cite doi octeți în- 
cepînd de la adresa LISTA. 


; Program de interfațare a unui converlor analog-numeric 


MVI  A,92H ; programare circuit 8255 
OUT  43H trimite în portul de comandă 


înscrie în memorie 


LXI  H, LISTA ; H, L conţin adresa în zona de memorie 
MVI B,0 ; selecţie intrare analogică 

ET1: MOV A,B ; transferă cod de selecție în A 
OUT  42H ; resetează convertorul A7-0 
ORI  80H ; A7=1 
OUT  42H ; start conversie 

ET2: IN 41H ; citeşte starea 
RAL ; A7=STOP trece în CY 
INC  ET2 ; dacă STOP=(0, așteaptă 
IN 40H ; citeşte biții de date D7-Dp 
MOV M,A ; înscrie în memorie 
INX H ; incrementează adresa de memorie 
IN 41H ; citeşte biții de date D11-D8 
ANI  0FH ; selectează biții A3-AD 


MOV M,A 
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INX H ; incrementează adresa de memorie 
INR B ; incrementează contorul de selecţie 
ANI  0FH ; test sfirşit achiziţie 

ÎINZ ET ; reia dacă nu este gata 


IMP NEXT 


8.6. Simularea unui circuit logic 


Microcalculatorul „aMIC“ poate fi utilizat în proiectarea schemelor 


; altfel execută prelucrarea datelor 
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logice, înlocuind faza de sinteză a circuitelor și de punere la punct cu ajutorul 


osciloscopului, analizorului logic etc. 


În acest fel se poate economisi timp şi efort material. Pentru exemplifi- 


care, se consideră o interfață simplificată care conectează un echipament peri- 
feric de ieșire la un microsistem construit tot cu microprocesorul 780) (figura 8.11). 


ECHIPAMENT 
PERIFERIC 


MICROSISTEM 
CU 
Z 80 


Fig. 8.11. Interfaţarea unui echipament periferic la un 


microsistem cu 280. 


Interfața este cuplată la magistrală prin următoarele semnale (figura 8.12) : 


— RESET : activarea acestui semnal are ca efect iniţializarea interfeţei 


şi abandonarea eventualei operaţii curente ; 


RESET 
IORA 
Ti INTERFAȚA 
MAGISTRALAN ŞIR PENTRU UN 
SISTEM ECHIPAMENT 
A5 
DE 
sent IESIRE 
ATI 


HE 
SY 


Fig. 8.12. Semnalele conectate la interfața. 


ECHIPAMENT 
PERIFERIC 
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— IORQ 'activ; (0 logic) şi MI inactiv (1 logic) indică ciclu de I/E; 

— WR activ (0 logic) indică sensul transferului (de la UCP la echipamen- 
tul periferic). 

— A5 este utilizat pentru selectarea interfeţei. Deoarece microsistemul 
are un număr redus de dispozitive de intrare/ieșire, în cadrul octetului de adresă 
de I/E biții A7—A2 sînt utilizaţi pentru selectarea cîte unui circuit (fiecare 
bit, activ pe 0, controlează un dispozitiv), iar biții A1 şi A, eventual pentru 
selectarea porturilor interne. Deci în octetul de adresă pentru interfață bitul 
A5 este 0, toţi ceilalţi biţi fiind 1. 

— "WATT este conectat la intrarea WAIT a microprocesorului, permițînd 
adaptarea vitezei de lucru a unităţii centrale de prelucrare la viteza echipamen- 
tului periferic. 

Semnalele generate de interfață pentru echipamentul periferic de ieşire 
sînt următoarele : 

— GO, generat la selectarea interfeţei și utilizat pentru preluarea 
datelor de pe magistrală într-un registru de date; 

— BUSY, generat de activarea semnalului GO şi avînd o durată fixă, 
0.5 ms, timp în care echipamentul realizează operația de transfer a datelor 
pe suport extern. 

În figura 8.13 se prezintă diagrama de semnale pentru un ciclu de acces 
la interfață (a) și schema electrică (b). 


IORQ 
MI 


Ag A7 


a) 


CDB 
404 E 
D= 


Fig. 843. Diagrama de semnale (a) și schema (5) ale intertaței. 
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În loc să se construiască 
fizic această schemă și să se veri- 
fice prin metode hardware, utili- 
zînd osciloscop, analizor logic, 
etc. ... funcţionarea corectă se 
poate verifica prin program, uti- 
lizînd microcalculatorul „aMIC“. 
Conectarea microcalculatorului la 
microsistemul cu Z80) se poate 
face prin interfața paralelă. În 
acest scop se utilizează un circuit 
Z8)—PIO cuplat extern la ma- 
gistrala „aMIC“-ului. În figura 8.14 
este prezentat circuitul Z80-PIO 
şi semnalele de cuplare la ma- 
gistrală. Fig. 8.14. Cuplarea eireuitului Z80-PIO la 

Astfel, în microsistemul cu magistrala microealculatorului „aMIC*. 
Z80 interfaţa de testat a fost 
înlocuită cu microcalculatorul „aMIC“ (fig. 8.15). Semnalele interfeței de 
cuplare la unitatea centrală de prelucrare și la echipamentul periferic de 
ieşire, au fost legate la liniile portului A din circuitul Z80-PIO, programat 
în modul 3 (control bit). 


MICROSISTEM 
CU 
Z80 


MAGISTRALA 


Fig. 8.15. Schema de principiu pentru simularea 
interfeței. 


Deoarece intrarea CE a circuitului a fost conectată la ieşirea 3 a decodifi- 
catorului (CDB442E) de adrese de I/E (semnalul PIO), iar terminalele &/D 
Sel şi B/Ă Sel la liniile de adresă AB, respectiv AB1 rezulţă adresele porturilor 
din circuit (biții neutilizaţi s-au considerat 6): 

60H : port?A date; 

61H : port A control ; 


62H : port B date; 
€3H : port B control. 


Asignarea semnalelor interfeţei la liniile portului A este prezentată în 
figura 8.16. 
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Programul de simulare cuprinde trei secvențe principale : 
— secvența de inițializare, inclusiv programarea circuitului Z8APIO 
(figura 8.17); 


scai MEM 
RESET EMORIA 
IORG Semnele 
Mi conectate 
NR la 1 Z80 P1O 

interfață 66 |] [o] 
A5 pentru Îmi A cai 
GO echip. | IN 5600 
BUSY periferic 
WAIT 

DE 
TRATARE 
Fig. 8.16. Asignarea semnalelor inter- Fig. 8.18. Răspunsul la întreruperea ge- 


feței la liniile portului A din Z80-PI0. nerată de Z80-PIO. 


mod 3 = de mod 


liniile 4- e pentru intrare 
ac liniile 7-5 programate pentru iesire 


97H. [1170.010.111] 


DEA) control pentru întreruperi 
urmează masca 
liniile care pot genera întreruperile sînt active pe O 
condiție AND/OR (există o singură linie ) 
intrerupere activotă 


Pen [te în 0 A, 310) 


Leamlinia 0 poate genera întrerupere 
La tiniite 7-1 mascate 


00H 100 000000 


vectorul de adresă 


Fig. 8.17. Cuvintele de control pentru programarea circuitu-- 
iui Z89-PIQ. 
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— bucla de simulare ; 
— subrutina de tratare a întreruperii generate de activarea semnalului 
RESET (tehnica de răspuns prezentată schematic în figura 8.18). 


1 Progrumareu circuitulu: Z80-PIO 


; setează modul 3 (control bit) 
; transmite în portul A control 
LD A, 1FH ; liniile 7, 6, 5 programate pentru 
; ieșire și liniile 4, 3, 2, 1, 0 pentru intrare 


LD A, 97H cuvîntul de control pentru întreruperi 
OUT  (61H),A 

LD A, 0FEH ; numai bitul 0 (RESET) poate genera 
OUT  (61H),A ; întrerupere 

LD A, 0 ; vectorul de întreruperi 


OUT (61H),A 
; Iniţializarea sistemului de întreruperi la UCP 


IM2 ; setează modul 2 de răspuns la întreruperi 
LD A, 66H ; încarcă registrul I 
LD IA 


LD HL, 7000H  ; adresa subrutinei de tratare a întreruperii 
LD (6609), HL ; memorează la adresa 6600H şi 6601H 


; Iniţializare semnale de ieșire PIO 


SIMUL: LD A, 80H ; iniţializare port A 
OUT  (60N),A ; WAIT=1, G0=0, BUSY=0 
EI ; activarea sistemului de întreruperi 


; Bucla de simulare a interfeţei 
; Așteaptă selectarea interfeţei 


BUCLA : IN A, (60H) ; citeşte liniile portului A 
AND 1EH ; selectează biții 4, 3, 2, 1 _ __ 
XOR 4 ; testează semnalele A5, WR, MI, IORQ 


JR NZ, BUCLA ; dacă cel puţin un bit nu este activ așteaptă 


; Interiaţa a fost selectată, ACC=(0 


IN A, (60H) ; citește portul A 
SET 5,A ; poziţionează GO=1 
E = OUT  (60H),A ; înscrie în portul A 
; Trecerea în 1 a semnalului GO declanșează monostabilul 74121 
SET 6,A ; poziţionează BUSY=1 
OUT  (60H),A ; înscrie în portul A 
; Activarea lui BUSY, resetează semnalul GO 
RES -5,A ; poziţionează GO=0 
OUT  (G60H),A ; înscrie în portul A 
; Întirziere de 0,5 ms, timp necesar pentru terminarea operaţiei de ieșire 
LD A, 3DH ; constanta de întirziere pentru 
DELAY :DEC A ; frecvența ceasului 2MHz 


JR NZ, DELAY 
; La sfirșit dezactivează BUSY și WAIT 


IN A, (60H) ; citeşte portul A 
SET 7,A ; WAIT=1 
RES 6,A ; BUSY=0 
OUT  (60H),A ; înscrie în portul A 
; Aşteaptă terminarea accesului 
STOP: IN A, (60H) ; citește portul A 
AND 1EH ; selectează biții 4, 3, 2, 1 


XOR 4 ; inversează MI (semnale active pe $) 


26 Cuplări de echipamente periferice, interconectări și aplicaţii 


JR Z, STOP 3 dacă ACC=0, așteaptă 
JR LOOP ; dacă ACC=1, reia secvenţa 


; Subrutina de tratare a intreruperii generate 
; de activarea semnalului RESET 


ORG  7000H 

EX AF, AF” ; salvare stare program 

EXX ; numai dacă este necesar — în acest exemplu ; nu este necesar 

POP _ ;HL ; înlocuiește adresa de revenire din 

LD HL, SIMUL ; stivă cu adresa de relansare a 

PUSH HL ; programului de simulare 

EX AF, AF ; aceste două instrucțiuni nu sînt 

EXX ; necesare — în general sînt utilizate pentru refacerea stării 
; programului întrerupt 

RETI ; return 

END 


8.7. Cuplarea la microcalculator a unei 
miniimprimante MIM49 


Miniimprimanta  MIM40 (produsă la Electromureş Tg. Mureș) este o 
imprimantă paralelă cu 40 de caractere într-un rînd, fiecare coloană de caracter 
fiind formată din 7 puncte, fiecărui punct îi corespunde în sistemul electrio 
de imprimare un ac de imprimare. 

Formatul unui caracter este dat în figura 8.19 (7 linii X 5 coloane). 

Fiecare punct din matricea de imprimare este controlat prin software. 

Din punct de vedere mecanic, transportul capului de imprimare se reali- 
zează cu un tambur dispunînd de un ghidaj elicoidal ca în fig. 8.20. 


Fig. 8.19. Formatul unui caracter  Pig. 8.20. Tambur pentru transportul capului 
(exemplul A). de imprimantă. 


În timpul cursei active a capului de imprimare se realizează imprimarea 
a 40 de caractere iar semnalul de stare a capătului de cursă activă şi a cursei 
inverse este la nivel 1 logic. 


La capătul cursei active acest semnal devine () logic şi rămîne pe această 
valoare tot timpul cursei inverse. Semnalul de stare este generat printr-un 
sistem mecanic rigidizat cu tamburul. : 


Schema interfeţei de cuplare a microcalculatorului aMIG cu miniimpri- 
manta este prezentată în figura 8.21. 
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Fig. 8.21. Schema interfeţei de cuplare a microcalculatorului cu miniimprimanta 
MIM40. „raid MU Rei 


Descrierea interteţei 


Miniimprimanta este cuplată la microcalculator prin intermediul unei 
interfețe periferice programabile 8255, care comandă prin software schema 
electrică de imprimare și preia starea curentă de poziţie a tamburului. 

Portul A al interfeţei periferice programat ca ieșire asigură cele 7 semnale 
de comandă a solenoizilor acelor de imprimare precum şi semnalul de comandă 
a motorului care acționează tamburul. 

Comanda solenoidului se realizează printr-un etaj de comutare, realizat 
cu un montaj Darlington, prevăzut cu protecție la tensiunile inverse induse 
în solenoid. (dioda D2). 

Comanda acționării motorului este realizată printr-un montaj Darling- 
ton, care generează semnalul de comandă, pentru un triac care asigură excitația 
motorului la 110 V c-a. 

Imprimarea unei linii decurge astfel : 


Întrucît poziţia capului de imprimare poate fi presupusă oarecare, comanda 
de acţionare a motorului trebuie să asigure poziționarea la capăt de rînd a capu- 
lui înaintea imprimării. Astfel, dacă semnalul de stare este pe 1 logic, se comandă 
rotirea motorului pînă la anularea acestui semnal, parcurgindu-se astfel restul 
de cursă directă pînă la capătul de cursă. Cu motorul acţionat programul de 
comandă asigură o buclă de aşteptare de aproximativ 7 ms timp în care capul 
de imprimare ajunge la începutul cursei directe. 

Se testează din nou semnalul de stare și dacă nu a devenit încă 1 logic 
se așteaptă modificarea sa (cu motorul acţionat). Programul de imprimare 
presupune existența într-o zonă tampon de date a celor 40 eoduri ASCII cores- 
punzătoare caracterelor care trebuie imprimate. 
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Înainte de imprimarea unui caracter, din codul ASCII corespunzător 
se generează adresa corespondentă din generatorul de caractere. 

Acesta conţine, codificat pe cîte 5 octeți, configuraţia tuturor caracterelor 
care pot fi imprimate, în ordinea codurilor ASCII. 

După preluarea primului octet, care constituie prima coloană a caracteru- 
lui, (avînd întotdeauna bitul 7 poziţionat pe 1 logic: comanda motorului 
activă) acesta este transmis în interfaţa periferică programabilă şi se declan- 
şează o buclă de așteptare de 0,25 ms, timp în care solenoizii corespunzători 
sînt acţionaţi executînd imprimarea coloanei. 


La terminarea buclei de așteptare în portul de ieșire este înscris doar 
bitul de acţionare a motorului poziționat pe 1 logic. Se generează o pauză de 
1,25 ms necesară parcurgerii spaţiului dintre două coloane, iar apoi se repetă 
algoritmul de imprimare coloană. 


Între două caractere consecutive programul generează o pauză de 2,5 ms, 
timp În care se acţionează în continuare motorul. 

Avansul capului de imprimare se poate opri pe parcursul unei linii dar 
nu este posibilă întoarcerea la începutul cursei directe, decît prin imprimarea 
de blancuri în restul liniei. După terminarea imprimării celor 40 de caractere 
se generează bucla de așteptare a căderii pe zero a bitului de stare. După 
aceasta se generează o pauză de ordinul 130 ms acoperitoare pentru cursa 
inversă, iar apoi se opreşte comanda motorului. 

Durata pauzelor introduse în program sînt astfel alese încît imprimarea 
a 4 puncte alăturate să genereze un pătrat. 

Micşorînd pauza între imprimarea a două coloane succesive se poate mări 
numărul de caractere imprimate pe o linie. 

Spaţiul între două linii succesive este generat automat prin forma ghida- 
jului elicoidal de pe tambur, deci distanța între două linii imprimate este în- 
totdeauna aceeași. 


Prezentarea programului de imprima 


Înainte de lansarea subrutinei de imprimare a unei linii, programul de 
imprimare trebuie să asigure încărcarea unei zone tampon de date avînd lun- 
gimea de 40) de octeți, cite un octet pentru fiecare cod ASCII care urmează 
să fie imprimat. După încărcarea zonei tampon, subrutina de imprimare poate 
fi executată iar pentru imprimarea unei pagini se repetă secvența de operaţii: 
încărcarea zonă tampon — execuţie subrutină imprimare linie. 

Subrutina de imprimare ia în considerare numai coduri cuprinse între 
20H şi 5FH pentru alte coduri imprimînd blanc. Generatorul de caractere 
conţine cifrele zecimale, literele majuscule de la A la Z şi următoarele carac- 
ere. spenialei: Blanei 2, pan Size sea (Gh tal eiozzinea afin fa zii lo da 

Subrutina de afişare a unei linii este prezentată în cele ce urmează : 


IMPRIM: PUSH H 
LD A,81H 
OUT 43H ; programarea interfeţei 8255 
XOR A 
OUT 42H 
LD HL,BUFTIP ; HL-adresa zonei tampon 
LD B,28H ; 40 caractere pe linie 
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PIP 2: IN A, PH 
AND 01 
LD A, 80H ; se comandă motorul 
OUT 40H A 
JP 7 TIPA ; se aşteaptă pînă ce bitul de stare 
JP TIP2 ; devine „0“ 


TIP 1 LD DE, CONTA4 ; pauză de început linie 
CALL PAUZA 


TIP:3: IN A, 42H 
AND pi ; se așteaptă pînă ce bitul de stare devine „1“ 
IP 2, IIP3 
TIP 73 LD A, (HL) 
CP 20H 
JP C, TIP4 
CP 60H 
JPG, TIPS ; Codurile ASCII care nu aparţin 


TIP 4 LD A, 20H [20, 5F] se înlocuiesc cu 20H. 


TIP 5: INC HL 
PUSH HL ; Salvează adresa caracterului următor 
LD HL, TAB-DAgF 
LD D, 00 
LD E,A 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE ; Calculul adresei din generatorul de caractere a codului 
ADD HL, DE ; din Ace, 
LD C, 05H ; Nr. de coloane într-un caracter 


TIP 6: LD A, (HL) ; Se încarcă 8255 cu o coloană de imprimare 
OUT 40H A 
LD DE, CONT 
CALL PAUZA ; durata de acţionare a solenoizilor 
LD A, 80H 
OUT 40H A ; comandă motor 
LD DE, CONT2 
CALL PAUZA ; pauză între 2 coloane succesive 
INC HL 
DEC C 
JP NZ, TIP6 
LD DE, CONT3 ; pauză între 2 caractere 
CALL PAUZA 
POP HL 
DEC B ; dacă mai sînt caractere de imprimat 
JP NZ,; PIPI 


TIP 8: IN A, 42H 
AND 91 ; se așteaptă ca bitul de stare să devină „0“ 
JP NZ, TIP8 
LD DE, CONI5 ; pauză necesară cursei inverse 
CALL PAUZA 
XOR A ; oprire motor. 
OUT 40H A 
POP H 
RET 


PAUZA : DEC DE 
LD A,E 
a OR 
JP NZ, PAZUA 
RET. 
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Configuraţia semnalelor la conectorul de interfață cu miniimprimanta 


1. PA7 bufferat 9. PB? 17. PC7 
2. PA6 bufferat 10. PN6 18. PC6 
3. PA5 bufferat 11. PB5 19. PC5 
4. PA4 bufferat 12. PB4 20. PC4 
5. PA3 bufferat 13. PB3 21. PC3 
6. PA2 buiferat 14, PB2 22. PC2 
7. PAL butferat 15. PB1 E pi doi 
8. PA0 bufferat 16. PBO 24. PCO 
25. GND. 


8.8. Cuplarea microcalculatorului cu un programator 
de EPROM 


Programatorul asigură posibilităţi de programare pentru circuitele EPROM 
de tipul Intel 2716. 
Configuraţia circuitului este următoarea (fig. 8.22). 


Fig. 8.22. Configuraţia ter- 
minalelor circuitului 2716. 


] 
2 
3 
TA 
E) 
6 
7 
8 
9 
19) 
iul 


Semnificaţia semnalelor : 
Dp—D7 = date intrare/ieșire 
AD—A10 = adrese 


Vpp = selecție regim de programare 
'0E = validare ieşire . 
CE = intrare selecţie circuit 


Modurile de lucru ale circuitului sînt prezentate în figura 8.23 a, unde 
ze pun în evidenţă condiţiile în care se realizează fiecare regim : citire, progra- 
mare, verificare. 

Regimul de programare, verificare este selectat forțînd la intrarea Vpp 
o tensiune de 25 V. 

Datele de intrare trebuie să fie stabile înainte şi după pulsul de programare, 
minimum 2 ps. _Pulsul de programare durează între 45 şi 55yus şi este livrat 


“circuitului la intrarea CE de nivel TTL (fig. 8.23b). 
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CE /PGM Vpp Vec OUTPUTS 
(18) (21) (22) |19—,13—17) 
Pie dee bai | tu 


// DATA IN STABLEN, 
Dei A.A 


Wig. 8.23. Memoria EPROM 2716, Regimurile de lucru (a), diagramele de timp (b), 


În tigura 8.24 este prezentată schema bloc de interfațare a programato- 
rului la microcalculator. 

Interfaţarea este realizată utilizindu-se adresarea diferitelor operaţii ca 
porturi. Atît datele, adresele cît şi comenzile sînt livrate programatorului 
prin interfața periferică programabilă, fiind memorate în registre cu încărcare 
paralelă (CDB495). 


Descrierea funcționării programatorului (fig. 8.25) 


Dispozitivul este cuplat la magistrala externă de date a microcalcula- 
torului, necesitînd semnale de adresă (AB3, AB4) şi semnale de comandă 
(RDB, IOREQ). 

Semnalele de adrese și comenzi sînt folosite pentru decodarea celor 6 
selecții necesare funcționării programatorului. Transferul de date din/înspre 
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MAGISTRALA EXTERNĂ 
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DECODARE 
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Fig. 8.24. Interfața microcalculator-programator EPROM. 


programator se realizează prin instrucțiuni de intrare/ieşire. Codurile portu- 
rilor I/O sînt astfel construite încît selectează magistrala externă de date 
prin cuartetul superior şi porturile din programator prin cuartetul inferior. 

Adresele sînt prezentate programatorului octet cu octet fiind încărcate 
în registrele tampon de adrese iar datele sint înscrise în registrul tampon de 
date sau citite din EPROM prin butferele de separare de tipul 7409, 

Pentru protejarea memoriei EPROM ieșirile registrului tampon de date 
au fost butferate cu circuite „trei stări“ de tipul 74125. 

Pe pinul de alimentare Vec al circuitului EPROM se aplică tensiune 
de +5 V programată. În timpul introducerii respectiv scoaterii circuitului 
2716 din soclu tensiunea de alimentare nu ajunge la circuit. 

Deschiderea liniilor de ieșire din tamponul de date spre circuitul EPROM 
se comandă prin înscrierea unui bit corespunzător într-un registru de comenzi. 

Întrucît, în funcţie de regimul de lucru, intrarea Vpp a circuitului 2716 
este forţată pe 5 V (în regim de citire) respectiv 25 V (în regim de programare/ 
verificare) s-a prevăzut un circuit de comutare nivele de tensiune comandat 
tot printr-un bit înscris în registrul de comenzi. 

În timpul operării cu memoria EPROM s-a prevăzut posibilitatea de pre- 
luare a stării tensiunilor Vpp, respectiv Vcc, prin citirea pe magistrala de date 
a unui cuvînt de stare. În funcţie de nivelul tensiunii UppsS214V bitul 0 din 
cuvîntul de stare este poziționat pe 1 sau zero logic. 

Bitul 1, din cuvîntul de stare este poziționat pe 1 logic dacă EPROM-ul 
nu este alimentat cu tensiunea +5V. 
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7 Q 
IN 40 Date D7 — DO (citire) 
7 | 9) 
7? (9) 
OUT 40 Date D?7 — DO (scriere) 
7] (9) 
%, 2 ] 


(9) 
7! [A 3 2 ] 9) 
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Fig. 8.26. Instrucţiuni de I1/E. 


Semnificaţia informaţiei transferate în urma apelării unui port reiese 
din figura 8.26. 
Organigrama programului de scriere/verificare a EPROM-ului 


Deoarece programatorul nu este prevăzut cu posibilităţi de RESET-are, 
la cuplarea tensiunii este nevoie ca programul să fie lansat înainte de a intro- 
duce cipul de memorie în soclu, pentru a poziţiona corect registrul de comenzi 
(o configurație întîmplătoare a acestuia ar putea pune în pericol cipul de memo- 
rie EPROM). După lansare, programul execută inițializările necesare și afi- 


șarea mesajului : 


PROGRAMATOR 2716 
COMPL (D, N) 


În funcţie de răspunsul operatorului D sau N, informația din EPROM 
se consideră complementată sau nu. În continuare se afișează prompterul (*) 
şi se așteaptă comenzi. Programul acceptă un număr de 7 comenzi, ale căror 
acțiuni vor fi descrise în continuare. 


Comanda A (alimentări) verifică prezenţa tensiunilor de +5 V şi +25 V 
la pinii 24 şi respectiv 21 ai soclului în care se amplasează EPROM-ul. Co- 
manda constituie un test pentru funcţionarea comutatoarelor de tensiune, dind 
diferite comenzi și preluînd cuvîntul de stare. Testul se execută de preferință 
cu soclul liber. 

Comanda V (verificare) operează cu memoria EPROM în regim citire, 
verificînd dacă toate locaţiile memoriei sînt FF. Dacă există erori de „ștergere“ ale 
memoriei, se va afişa adresa şi octetul corespunzător şi se așteaptă decizia 
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operatorului de a continua verificarea, cu (CR) sau de a reveni la prompter, 
cu orice altă tastă. La sfirșitul verificării se va afişa numărul total de erori 
de ștergere. 

Comanda T (transfer) execută transferul zonei de memorie EPROM 
cuprinsă între ADR.ÎNCEPUT SURSA ȘI ADR. SFÎRŞIT SURSA în me- 
moria RAM de la ADR. INCEPUT DESTINAȚIE, complementat sau nu. 


Comanda C (Comparare) realizează compararea unei zone din EPROM 
cu o zonă din memoria RAM. Adresele limită ale blocurilor se dau după lansarea 
comenzii. 

Fiecărei erori depistate îi corespunde un mesaj care cuprinde tipul erorii 
(corectabilă sau necorectabilă, adică „1“ în loc de „0“ și invers), adresa, octetul 
din RAM și cel din EPROM. Se continuă compararea cu (CR). După terminarea 
comparării se afișează numărul total de erori apărute și numărul de erori ne- 
corectabile. 

— format: A ADR (CR) 


Comanda D (Display) permite afişarea a 8 octeți din memoria EPROM 
începînd de la adresa menţionată în comandă, adresă care se afișează la înce- 
putul rîndului. 

Tastarea (CR) are ca efect afişarea următorilor 8 octeți. 


Comanda D (Programare) realizează cea mai importantă acţiune, aceea 
de înscriere a unei zone din memoria RAM în memoria EPROM. Adresele 
limită a blocurilor au în cazul acestei comenzi următoarea semnificație : adre- 
sele referitoare la sursă delimitează zona din EPROM care va fi înscrisă res- 
pectindu-se convenţia care definește memoria EPROM ca sursă iar cea RAM 
ca destinaţie. Înainte de programarea propriu-zisă se realizează compararea 
zonei sursă cu zona destinaţie. Dacă sînt depistate erori necorectabile ele sînt 
afişate și se așteaptă decizia operatorului. Acesta poate să le ignore și să conti- 
nue compararea cu (CR). Acest test care anticipă programarea, dă posibilitatea 
înscrierii unei memorii EPROM care deşi nu este ștearsă complet, nu are diie- 
renţe necorectabile faţă de informaţia care urmează să fie înscrisă. 

Înscrierea fiecărui octet este anticipată de verificarea tensiunii de 25 
de volţi care poate fi mai mică de 24 de volţi datorită sursei, comutatorului 
5—25 V sau datorită intrării Vpp defecte a cipului de EPROM. Succesiunea 
comenzilor și întîrzierile necesare pentru înscrierea corectă a unui octet sînt 
generate prin software. 

Se verifică octetul înscris, comparindu-se cu octetul corespunzător din 
RAM şi dacă apare eroarea corectabilă se repetă înscrierea aceleiași locaţii. 
Dacă eroarea corectabilă se menţine, ea va fi contorizată şi se continuă progra- 
marea următoarelor locaţii. Dacă apare o eroare necorectabilă ea este afişată 
şi se așteaptă decizia operatorului. După terminarea înscrierii întregului bloc 
de date se afișează numărul total de erori şi numărul de erori necorectabile 
apărute. 

Comanda S permite înscrierea unui singur octet din EPROM. Comanda 
cere adresa și octetul de înscriere după care îl compară cu octetul existent 
în EPROM. Dacă diferența este necorectabilă ea este afişată şi se cere decizia 
operatorului. Revenirea în monitorul microcalculatorului se face cu comanda 
(CR). 
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8.9. Cuplarea cu un terminal DAF 2010 


Prin intermediul interfeţei seriale 8251 se realizează transferul bidireeţio- 
nal asincron de date între microcalculator și un sistem DAF 2019, cu o rată 
de transfer de 2409 Bauds. 

Informația vehiculată poate fi transferată octet cu octet, sau sub formă, 
2de blocuri de date, înformat HEX-INTELLEC, care presupune următoarea 
structură a înregistrării : 


CR LF:NO ADR T Date Control 


unde : NO este numărul de octeți de date ai înregistrării, 
ADR — adresa de început a înregistrării. 
4 — tipul înregistrării. 


Date — reprezintă maxim 16 octeți 
Control este suma logică a octeţilor din înregistrare. 


Sfîrșitul de fişier este constituit de o înregistrare cu număr de octeți 
zero iar adresa corespunzătoare va fi adresa de salt în fişierul încărcat. 

Programul de transmisie a unui fişier, la lansare așteaptă adresa de 
început şi sfîrşit a blocului de date iar la stirșitul transmisiei formează automat 
înregistrarea de sfîrşit fişier. 

Programul de recepţie a unui fișier, aşteaptă după lansare, adresa de depla- 
sare a blocului de date faţă de adresa de început a fişierului (intrinsecă). 

Secvența de programare a interieţei serie 8251 este prezentată în conti- 
nuare : 


MVI A, QEAH MVI A, 15H 
OUT Q1H OUT 01H 


Semnificația este următoarea : 2 biţi de stop, control da paritate dezactivat 
caracter pe 7 biţi, viteza de transmisie = rata de transmisie X16, activare 
transmisie şi recepție, anularea erorilor din registrul de stare. 

Subrutina de transmisie a unui caracter aflat în memorie la adrosa Hla 
este prezentată în continuare : 


TCAR:  MOVA,M TO IN GI 
OUT 09H ANI 01H 
JZ TC1 
RET 


Recepţia unui octet de la interfața serială este realizată de următoarea 
subrutină : 


PCAR: IN 01iH IN 001 
ANI 02h ANI 7FH 
JZ RCAR RET 


Programul de transmisie fișier preia din memorie blocuri de 16 octeți, 
ormatează informația în HEX-INTELLEC şi calculează suma de controi 
ealizînd astfel o înregistrare. Acast ciclu este repstat pînă la terminarea blo- 
ului da date, completindu-s2 fişierul cu înregistrarea nulă. 
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Pregramul de recepţie fişier transferă în memorie înregistrări succesive, 
prelucrind secvențial fiecare octet și verificînd la sfîrșit suma de control. 

În cazul apariţiei unei erori programul afişează mesajul: ER : adresă, 
unde adresa constituie începutul înregistrării eronate. 

În momentul recepţiei unei înregistrări nule se face ieșirea în monitorul 
microcalculatorului. 

În continuare se dă configuraţia semnalelor la conectorul de interfaţă 
cu un DAF 2019: 


1. GND 4. 6. STRAP pt, DAF 9-+19 neutilizat 
2. TxD 5. STRAP pt. DAF 7. GND 
3. RxD 8. — 

20. — 


8.10. Interfața cu un minirobot 


Minirobotul de laborator M2,5 elaborat la „Electrotimiș“ 'limișoara 
este un robot experimental cu aplicabilitate în industria electronică pentru 
manipularea de piese şi componente de mici dimensiuni şi greutate redusă 
(2,5 Nm ; greutate piese 300g, deschiderea dispozitivului de prehensiune : 
7 cm ;). Minirobotul dispune de d grade de libertate fiind prevăzut cu 5 motoare 
pas cu pas (20 W) acţionate în “buclă deschisă. 

Minirobotul este realizat constructiv cu elemente mecanice din material 
plastic, transmisia este asigurată prin fire, posedă un panou de învăţare şi o 
tastatură cu electronică de urmărire. 

Mişcările pe care le poate executa acesta sînt: 

— pivotarea (rotația în jurul axului principal) 

— mișcările braţului și antebraţului 

— mişcările de îlexie şi supinaţie a miinii mecanice. 

Minirobotul este interiaţat la microcalculator printr-o interfaţa periferică 
programabilă, avînd cele 3 porturi programate ca ieşiri. 

Prin aceasta interfaţă microcaleulatorul asigură 8 comenzi de sens de 
mișcare şi 8 comenzi de tact repartizate fiecărui motor pas cu pas. (1 comandă 
de sens mișcare şi 1 comandă de tact la fiecare motor). 

Comenzile microcalculatorului sînt prelucrate într-o intai apă de acţio- 
nare pentru motoarele pas cu pas. 


Viteza de execuue a mișcarnor este controlată software, interfața de acțio- 
nare intervenind la depășirea valorilor prescrise pentru semnalele de tact. 

Controlul mișcării accelerate şi decelerate este asigurat tot din interfața 
de acţ 'onare. 

Programul de aplicaţie este scris într-un limbaj de nivel înalt, ARM 
BASIC, cu subrutine în limbaj mașină Z80. Între posibilităţile software remar- 
căm posibilităţile de elaborare a unor modele matematice de transformări 
de coordonate, un formalism matricial, posibilităţi de comandă în coordonate 
carteziene etc. Comenzile specifice ARMBASIC au fost utilizate şi la simularea 
mișcărilor unui minirobot în cadrul a două programe de aplicație : un program 
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de învățare pas cu pas a execuţiei unei mișcări şi un program de execuţie a unei 
traiectorii impuse. Programul de învățare permite simularea acţionării pas cu 
pas a motoarelor; aducind minirobotul în poziții succesive, la comenzi de 
operator. 

Cel de-al doilea program realizează simularea mişcării mîinii minirobo- 
tului pe o traiectorie a cărei coordonate succesive sînt calculate secvențial 
de către microcalculator. Simularea minirobotului pe microcalculatorul aMIG 
e int Mel prin afişarea stilizată pe display a poziţiilor succesive ale mini- 
robotului. 


8.11. Echipament de testare pentru microsisteme 
orientate pe magistrală 


Structura hardware a microcalculatorului „aMIC“ constituie procesorul 
„master“ al unui sistem biprocesor de test în curs de elaborare la ITC. 

Sistemul de test asigură posibilităţi de fabricaţie, service și instalare 
de aplicaţii a microsistemelor cu circuite LSI organizate pe principiul magistralei. 

Echipamentul realizează o testare funcţional dinamică pe principiul 
emulării. 

Stimularea plachetelor sau microsistemelor sub test este asigurată de emu- 
lator iar evaluarea răspunsurilor se face prin sondă mobilă cu analiză de semnături. 

Resursele sistemului IL-SIMINITEST sint: memorie utilizator în procesorul 
master 48 Ko, memorie de emulare 8 Ko, sistem de operare şi interpreter de 
test rezidente în EPROM, procesor master (16 Ko), monitor de depanare/ 
testare (rezident sau încărcat în memoria externă) programe de test și module 
de test funcțional încărcate din memorie externă, program de condus sonda 
mobilă, monitor de emulare (2 Ko). 

Memoria externă este realizată cu minifloppy sau casetă audio. Sistemul 
de test are ca display un receptor TV obișnuit, dispune de miniimprimantă 
MIM44, are disponibilităţi de transmisie/recepție serială de informații, putind 
constitui un post de lucru al unei echipament de test complex, multipost, I-SI 
TESI. 

Sistemul de testare are posibilități de punere la punct și de editare a pro- 
gramelor de test, avînd interfațat un programator de memorii EPROM. 

Emulatorul dispune de următoarele facilități : 

Stimularea în timp real a plachetelor sau microsistemelor sub test cu 
trei categorii de stimuli : primari, module de test funcționale și stimuli defa- 
vorabili, memorie de emulare relocabilă în spaţiul de adresă al procesorului 
emulator, ceas de gardă, generare și tratare de întreruperi, memorie trasoare, 
emulare pe microsisteme cu microprocesor 730 sau 8080. 

POD-ul emulatorului este constituit din microprocesorul 8080 sau Z80, 
bufterele de interfaţă şi controlerul acestora. Intervenţia pe placa sau micro- 
sistemul sub test se face la nivelul DIP-ului pe soclul microprocesorului 
emulat. Un translator de bus asigură posibilitatea testării microsistemelor 
organizate pe diferite standarde de magistrală. El este compus dintr-un modul 
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de unitate centrală specilic, un modul de memorie specific şi o placă adaptoare 
de bus. Sonda mobilă asigură facilități de ridicare a unei semnături, discrimi- 
nează nivele TTL, MOS, analogice, lucrează sub comanda procesorului master 
și emulatorului. 


E: 

IT piocă ] 
sou 

|microsisteml 

sub test | 


DISPLAY” MINIIMPRIMANTĂ 
INTERFAȚĂ RS232C 


[specific ] 


EMUL ATOR 


-logică recunoaștere 
emulator 


POD 
EMULATOR 


În e ru ate E Di 


PROCESOR 
MASTER 

[microcalculator 

a MIC] 


SONDĂ 


MOBILĂ 
UNITATE MEMORIE EXTERNĂ | | Cu analiză de semnături 
(mini floppy disk sau ro] pe 1 SR 
cosetă audio ) ! 
pi real pecete in 
Lo —7/ jANALIZĂ SEMNĂTURI 


| PARALEL LA BUS 
: (64 canale) 


Lt 


Fig. 8.27. Schema bloc a echipamentului de test LSIMINITEST. 


Sonda este ghidată prin program pentru localizarea defectului pe placa 
sau microsistemul sub test. 

Schema bloc a echipamentului de test I-SIMINITEST se prezintă în 
figura 8.27. 


8.12. aMIC-ul în unităţi de deservire pentru mașini-unelte 


În cadrul unei lucrări în curs de elaborare la ITC în colaborare cu o între- 
prindere constructoare de mașini-unelte, microcalculatorul aMIC se constituie 
ca o unitate de deservire a mașinilor-unelte, preluînd următoarele funcțiuni : 

— editare de bandă perforată ; 

— programare EPROM ; 
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— miniconsolă pentru automate programabile ; 

— imprimare programe. 

Editor de bandă perforată 

Resursele hardware ale microcalculatorului sint completate cu inter- 
faţarea unui lector (respectiv perforator) de bandă perforată. Editarea de bandă 
perforată presupune existența unui program de citire/scriere a benzilor, cum 
gi un program de prelucrare a textelor în limbajul specific mașinilor-unelte. 

Întrucît acest limbaj nu este încă standardizat este necesară o mare 
flexibilitate a programului, astfel încît să permită apelarea, modificarea, în- 
scrierea (respectiv ştergerea) unor instrucțiuni sau linii de program, cu reloca- 
rea corespunzătoare a textului. 

Programul permite şi copierea benzilor perforate, prin controlul numărului 
de linie sau a unei anumite instrucțiuni. 

Programator memorie EPROM 

Dispozitivul reprezintă o variantă cu posibilităţi lărgite de programare, pu- 
tind programa circuite 2708 sau 2716. Informaţia se încarcă într-o zonă RAM 
tampon în mai multe moduri: 

— prin citire de pe bandă perforată 

— prin citirea unei memorii EPROM 

—- prin introducere manuală 

— de la miniconsola pentru automat programabil. 

Microconsola pentru automate programabile (AP10I, AP117). Sistemul 
poate îi cuplat la automatul programabil, asigurîndu-i o zonă de memorie 
RAM în care se încarcă programul de control al procesului. 

Prin soltware se poate prelucra uşor informaţia înscrisă în memoria 
RAM permițind căutarea, ștergerea, modificarea, înscrierea unei instrucţiuni 
specifice automatului programabil. După punerea la punct a programului, 
acesta este înscris în memoria EPROM, constituindu-se ca program rezident 
pentru automatul programabil. 

Sistemul permite, de asemenea, printr-un program adecvat, simularea 
execuției programului, fără cuplare la proces, variabilele de intrare putind 
fi controlate şi modilicate la intervenţia operatorului, iar variabilele interme- 
diare şi cele de ieşire putind îi urmărite pe display. 

Se poate testa, astiel, urmărirea și controlul procesului (în condiţii defa- 
vorabile) și se poate optimiza programul de conducere a procesului. 

În cazul simulării variabilelor de intrare în condiţiile unui proces în buclă 
inchisă, se verifică optimalitatea programului de control al procesului înainte 
de realizarea aplicaţiei, sistemul preluînd funcţii de sistem exprii. 

Interfaţarea miniimprimantei MIM40 

În cadrul sistemului de deservire a mașinilor-unelte, funcția de imprimare 
este utilă pentru a asigura un suport de ieșire al programelor în procesul prelucrării 
şi modificării acestora. 

Soluţia de interfațare a miniimprimantei la sistem a fost prezentată 
În paragraful 8.7. 
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8.13. Sistem de înregistrare/redare a parametrilor 
semicontinui de proces 


Acest sistem este destinat, într-o primă variantă, achiziţiei parametrilor 
de sudare cu arc electric (tensiunea arcului U,, curentul de sudare I, sub forma 
unei mărimi nominalizate în domeniul 0—10 V şi viteza trenului de sudare 
V,, sub forma unui tren de impulsuri de maximum 5 kHz) cu rezoluţia de 10; 
biţi şi timpul de eșantionare de 200 ms. Parametrii achiziționaţi pot fi memoraţi 
pe un suport extern (casetă magnetică audio sau (opţional) bandă perforată): 
şi tipăriţi ofi-line pe o miniimprimantă paralelă. De asemenea, conţinutul unei: 
înregistrări din proces poate fi redat sub forma unor mărimi analogice de comandă: 
a procesului. Numărul de canale este maximum 16. 

Configurația completă are următoarea! componenţă: 

— modul unitate centrală (structurat pe varianta microcalculator personal 
aMIC) prevăzut cu 2 interfeţe paralele (una funcţională pentru lector/perforator 
de bandă şi una de intrare pentru tastatură), interfaţă serie RS232C (destinată 
comunicaţiei cu DAF2010 sau cu alt sistem de calcul), memorie RAM dinamică 
(48 Ko) şi EPROM (16 Ko), programator on line pentru circuite EPROM 
tip 2716, 2732 ; 

— modul interfaţă universală, care realizează interfeţe cu modulul de 
afişare (6 digiţi), cu imprimanta tip MIM40 (40 caractere), prin generator de 
caractere pe coloane rezident într-un ROM, cu unitatea de casetă (8251), cum 
şi un ceas programabil de timp real pentru prescrierea frecvenţei de eşantionare 
pină la 100Hz; 

— sertar de interfeţe specifice cu procesul, care preiau semnalul de la 
traductoarele de tensiune, curent, temperatură și-l încadrează în urma modulării, 
optoizolării şi demodulării în domeniul 0—10 V cu eroare mai mică de 1%; 

— periferice înglcbate : modul anşare 6 digiţi, imprimantă MIM40, (in- 
clusiv modul de acţionare) unitate de casetă audio, tastatură caracter, 10 ciire 
și funcțională ; 

— conectori de interfaţă cu lector LB50/perforator PB50, cu unitate 
de casetă UCMI01, pentru parametrii proces. 

Sistemul lucrează în regim de întrerupen, mod IMI, mascabile prin soft. 
Ele se înregistrează într-un registru de 8 biţi, care este citit şi decoditicat prin 
procrim în urma generării unui semnal unic de întrerupere. ; f e dă 


) În regim de progremare, operatorul poate prescrie prin dialog; 
— numărul canalului ; Bd 8 
— tipul canalului; j 4 
— tipul de eșantionare (100 Hz); | E E Op x CI 
— funcţia înregistrată | =: 0 E ei 


În figura 8.28 se prezintă schema bloc a sistemului de înregistrare/redare 
a paramet trilor de proces. 

Software-ul aplicaţiei asigură urmărirea procesului în timp real, fiind 
realizat în limbaj mașină 8080 (sau Z80). 
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Modul 
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Fig. 8.28. Schema bloc a sistemului de înregis- 
trare/redare a parametrilor de proces. 


8.14. Microcalculator (de laborator) pentru prelucrarea 
datelor provenite din analiza cromatografică 


Pentru a evita costul ridicat al unei implementări specifice şi pentru 
a putea destina sistemul şi altor proceduri de analiză fizico-chimică, soluția 
aleasă la ITC Timișoara recurge la o variantă cu un anumit grad de modulari- 
tate, funcția principală de sistem fiind preluată de microcalculatorul aMIG, 
cu resurse proprii de memorie 64Ko (48Ko RAM și 16Ko EPROM). 
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Acest modul interfaţează tastatura de caractere şi funcțională, un DAF sau 
monitor TV ca echipament extern de vizualizare și asigură o interfață de date 
paralelă. 

Restul periferiei este tratat pe modulul de interfață care gestionează impri- 
manta paralelă de tip MIM40, înglobată în echipament, subsistemul de achi- 
ziţie a mărimii de analiză, un ceas real de 20) ms şi ceasul de eşantionare. 

Pe același modul sînt rezidente și registrul de întreruperi și măștile 
de întreruperi. 

Conversaţia numeric-analogică de tip interactiv se realizează pe 15 biţi, 
plus un bit de semn, în domeniul —100 mV — +1 V, avînd perioada de eșan- 
tionare sincronizată cu frecvenţa reţelei, pentru rejecţia zgomotelor de înaltă 
frecvenţă. 

Semnalul este preluat diferenţial pentru a reduce zgomotele induse prin 
masă. 

Semnalul de analiză provenit de la cromatograt se prezintă sub forma 
unei succesiuni de vîrfuri (peak-uri). 

Fiecare „peak“ apare la un moment de timp care trebuie corect estimat, 
întrucît identifică tipul unui anumit component din amestecul de analiză. 

Integrala „peak“-ului dă o informaţie cantitativă asupra componentului 
detectat, astfel încit, în final, se poate face o estimare exactă a compoziţiei 
procentuale a probei analizate. 

Software-ul sistemului este scris în limbaj de asamblare 8080 (16 Ko 
program şi 12 Ko zonă de date, permiţind integrarea a 350 peak-uri). 

Pachetul de programe este organizat modular și cuprinde un monitor 
cu facilităţi de autodepanare, task-uri de dialog, de integrare, de corecție, de 
calcul al raportului (precizia de calcul: 24 biţi). 


Capitolul 9. Limbajul BASIC 
pentru microcalculatorul personal aMIC 


Manual practic 


9.1. Introducere 


BASIC (Beginners All-purpose Symbolic Instruction Code) reprezintă 
un limbaj conversaţional de nivel înalt. Pentru execuţia programelor de apli- 
caţie scrise în BASIC se folosesc cel puţin trei metode distincte : interpretarea, 
compilarea şi combinarea lor. Pachetul soliware, care folosește metoda combi- 
nată, poartă numele de compilator/interpretor sau pseudo-compilator. 

Fiecare din metodele de execuţie a programelor de aplicaţii are avanta- 
jele şi dezavantajele ei. În general, alegerea metodei este determinată de apli- 
caţie, de utilizarea particulară a calculatorului. 

În timpul execuţiei, un interpretor analizează fiecare instrucţiune, veri- 
fică existenţa erorilor, apoi efectuează funcția BASIC solicitată. Pentru a exr- 
cuta funcția respectivă, interpretorul traduce instrucțiunea dată în codul 
ASCII într-un număr de instrucțiuni maşină executabile, pe care le execută 
în continuare. Acest proces se repetă la fiecare instrucțiune BASIC, chiar 
dacă instrucţiunea respectivă apare de mai multe ori în cadrul unui ciclu. 

Modul interpretativ de execuție presupune existența în memoria calcula- 
torului a întregului program BASIC-sursă, sub forma unei liste de linii marcate 
cu etichete numerice. Fiecare instrucţiune de ramificaţie impune ca interpreto- 
rul să caute într-o listă de numere de linii, pentru a găsi instrucțiunea dorită 
În aceeași manieră interpretorul va căuta o anumită variabilă în cadrul unei 
liste date. 

Metoda bazată pe compilare presupune traducerea programului sursă, 
scris în BASIC, într-un fișier obiect relocabil. În continuare, un program de 
sistem, denumit Editor de legături, va înlănţui toate fișierele obiect relocabile 
produse, cît şi fişiere obiect extrase dintr-o bibliotecă, pentru a produce fișierul 
executabil în cod mașină. Programul obiect compilat, va îi executat de 25-+-30 
de ori mai repede decit se executa în maniera interpretativă același program 
BASIC sursă. 

Compilarea şi editarea de legături trebuie repetată la fiecare modiiicare 
executată în programul sursă. În cazul interpretorului se va modifica cu ajutorul! 
unor facilităţi de editare încorporate, linia respectivă din programul sursă, 
după care se va trece direct la execuție. 
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Astfel, un programator poate utiliza un inte. pretor pentru a pune la punct 
un program sursă BASIC, după care poate utiliza un compilator compatibil, 
pentru a obține un program obiect, care poate fi executat într-un timp foarte 
scurt, corespunzător aplicaţiei date. 

În comparaţie cu un compilator, interpretorul este mult mai ieftin. 


Metoda bazată pe pseudo-compilare asigură un compromis între viteză 
şi cost. Astfel, costul unui pseudo-compilator este apropiat de cel al unui inter- 
pretor, În timp ce viteza sa este de circa cinci ori mai mare decit a acestuia 
din urmă. Viteza relativă a pseudo-compilatorului depinde de instrucțiunile 
programului, de tipul de date și de gradul în care codul rezultat necesită trans- 
latarea în timpul execuţiei. 

Varianta de BASIC aleasă pentru aMIC are un caracter interpretativ, 
ceea ce o face extrem de atractivă pentru punerea la punct a programelor. 
Marea majoritate a aplicaţiilor pentru acest calculator nu intră în categoria 
aplicaţiilor de timp real. 

În cazul în care se impune o viteză de execuție mai mare, se poate fo- 
losi metoda apelării unor subrutine, scrise în limbaj de asamblare, pentru acele 
zone din program care trebuie executate cu viteză mare. 

Asemenea situații apar în cadrul aplicaţiilor de colectare a datelor sau de 
conducere a unor procese. Pentru a realiza accesul la subrutine scrise în limbaj 
de asamblare se foloseşte instrucțiunea CALL, care include un nume de varia- 
bilă (un indicator la o celulă de memorie în care se află punctul de intrare în 
subrutina scrisă în limbaj de asamblare) și dacă este necesar, o listă de para- 
metri care trebuie transferați subrutinei. 

Pentru punerea la punct a programelor în limbaj de asamblare se poate 
folosi prozramul de sistem MATE (Monitor-Asamblor-Text Editor), programul 
asamblat fiind stocat pe caseta magnatică. În continuare el va fi încărcat în 
memoria operativă a calculatorului o dată cu programul BASIC-sursă. Într-unul 
din paragrafele acestui capitol se dau exemple pentru ilustrarea acestei tehnici. 

Calculatorul aMIC are disponibile două versiuni de interpr toare BASIG. 
Prima versiune reprezintă un subset al celei de-a doua, în sensul că nu posedă 
instrucțiuni matriceale, instrucțiuni de prelucrare grafică și instrucțiunea 
CALI. Prima versiune necesită un spațiu de 8 Ko în memoria PROM, în timp 
ce versiunaa a doua necesită un spațiu de 14 Ko. Se menţionează și posibilitatea 
încărcării interpretorului BASIC de pe caseta magnetică, în scopul reducerii 
numărului de circuite integrate de memorie PROM al căror cost este relativ 
ridicat. 

Operarea sistemului. Elemente introductive privind programarea în 
limbajul BASIC 

În vederea unei sesiuni de lucru, calculatorul se conectează la intrarea 
de antenă a unui televizor și la o tastatură a!lfanumerică *. Televizorul va fi 
folosit ca echipament de ieșire, în timp ce tastatura va juca rolul unui echipa- 
ment de intrare. 


* Amănuntele privind conectarea la un televizor comercial, cît și tastatura sînt date tin 
capitolul 3 al lucrării. 
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După alimentarea de la reţea a televizorului și selectarea canalului cores- 
punzător se va alimenta și calculatorul, prin intermediul sursei proprii, şi se 
va acţiona tasta RESET. În acest moment pe ecranul televizorului va apărea 
un text, care indică faptul că sistemul se află sub controlul programului monitor. 
În continuare se pot introduce, de la tastatură, comenzi monitor (descrise în 
capitolul referitor la monitorul sistemului). Pentru a lansa BASIC-ul, trebuie 
acţionate tastele B şi RETURN. Pe ecran va apărea mesajul READY, indicînd 
posibilitatea introducerii unor comenzi şi instrucțiuni BASIC. De exemplu, 
dacă se dorește calculul valorii unei expresii aritmetice: 30—2.32-+4:2-3, 
se va introduce de la tastatură următoarea instrucțiune : 


10 PRINT, 30 — 2 sia 4 2-+4/2e3 


Se observă că instrucţiunea începe cu o etichetă numerică (10). La sfir- 
şitul introducerii instrucţiunii trebuie acționată tasta RETURN. În continuare 
linia (instrucțiunea) introdusă este depusă în memoria calculatorului, fără 
a se executa. Se constată că operaţiile de înmulţire, împărţire şi ridicare la pu- 
tere sint descrise prin simbolurile *,/şi 4 . 

În memoria calculatorului pot fi introduse de la tastatură succesiv mai 
multe instrucţiuni, avînd numere de linie diferite. Un grup de instrucţiuni 
depuse în memorie poartă numele de program. 

Pentru a executa o instrucţiune (un program) depusă în memoria calcula- 
torului, trebuie dată comanda RUN (urmată de RETURN). Astfel, introducînd 
instrucțiunea PRINT, și apoi comanda RUN, calculatorul va afișa pe ecran 
rezultatul expresiei (18), prioritatea în execuţia operatorilor fiind cea obiș- 
nuită (întîi ridicări la putere, apoi înmulţiri și împărțiri şi în final adunări 
şi scăderi). După tipărirea rezultatelor, pe ecran se va afișa un mesaj de eroare 
cu numărul 1, indicînd faptul că programul executat nu s-a terminat cu o in- 
strucţiune de oprire a execuţiei (STOP sau END). Pentru a evita această eroare, 
se va introduce după PRINT o nouă instrucţiune: 20 END. 

Execut înd din nou programul (format din două instrucţiuni : 10 PRINT 
„..„ Şi 20 END) și folosind tot comanda RUN, nu se va mai obţine mesajul 
de eroare. 

În instrucţiunea PRINT pot apărea mai multe expresii (după necesităţi) 
separate prin virgulă. De exemplu instrucțiunea : 


19 PRINT 1+7, 3, 5, 5e24 3,£19/4 


Va tipări cinci valori, cîte două pe un rind separate cu spaţii. De notat 
că ecranul televizorului este impărțit în 32 de rînduri a 30 de caractere fiecare. 
În cazul folosirii virgulei în instrucțiunea PRINT valorile sînt afișate începînd 
din poziţia 1 şi apoi din poziţia 15 a unui rînd, realizîndu-se o tabulare automată. 
Pentru a nu se lăsa spaţiu (tabula) între valorile tipărite, se foloseşte separa- 
torul ; între expresii. 

Astfel, 10 PRINT 8; 15/2—1; 247; 19 va tipări cele patru valori 
8,6. 5, 128 şi 19 pe același rînd (fără tabulare). 

Pentru a memora o valoare (un număr) care va fi folosită ulterior în pro- 
gram, se va utiliza o variabilă literală, căreia i se va atribui valoarea respectivă. 
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Limbajul BASIC dispune în acest sens de instrucţiunea de atribuire 
LET, cu ajutorul căreia se stochează în memoria calculatorului mărimi ce pot 
fi utilizate ulterior. Astfel, folosind variabila X : 

5 LET X=15 30 PRINT X 

10 PRINT X 40 STOP 

20 PRINT X/2, X42—X+1 
valoarea tipărită de instrucţiunile 10 şi 30 este aceeași (15). Instrucţiunea 
20 utilizează valoarea variabilei X, fără a o modifica. 


9.2. Elementele limbajului BASIC 


În continuare vor fi prezentate cîteva noţiuni necesare pentru descrierea 
unei probleme în limbajul BASIC. Cuvintele folosite în limbajul BASIC formează 
vocabularul limbajului. Ele se scriu după reguli precise, date de sintaxa limba- 
jului. 
Caracterele întrebuințate în BASIC pentru alcătuirea cuvintelor sînt : 
—literele mari ale alfabetului: A, B, C, ...,Z 
— cifrele : 0, 1, ..., 9 
— caractere speciale: + —*/=“>< os, î ();5 


9.2.1. Constante. Constantele sînt de două tipuri: constante numerice 
şi constante șir sau texte. În continuare, în lipsa menţionării explicite, prin 
constantă ne vom referi la constante numerice. Constantele șir reprezintă 
orice şir de caractere introdus între ghilimele. De exemplu: “STUDENȚII 
HARNICI“, “INTRODUCEŢI DATELE“, «127.5“, etc. 

Constantele numerice utilizate în BASIC sînt reale. Ele pot avea, de exem- 
plu, următoarele exprimări : 


25 123.45 -+A — (0.36 +.7321 


De asemenea, la fiecare număr de mai sus, se poate adăuga un exponent, 
utilizînd litera E. Exponentul este un număr întreg. El indică puterea lui 16, 
cu care se înmulțește numărul. 

Astfel, următoarele constante sînt corecte : 


25E —1=2.5 123,45E.12 —0.36E—15 


Intern, constantele sînt reprezentate în formatul cu virgulă mobilă, 
pe patru octeți. Primii trei octeți conţin mantisa, subunitară şi normalizată, 
iar octetul patru conţine exponentul: 


M |S| E | 
0 23 24 31 


unde : 

este mantisa normalizată 0.5s<M<1 

este un bit care reprezintă semnul mantisei (1 pentru negativ). 

este exponentul în complement față de doi. E reprezintă puterea: 
lui doi, cu care se înmulțește mantisa. 


ti ea 
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Conform cu această reprezentare internă, cel mai mic număr manipulat 
va fi (în modul) : 2.71051E-20 iar cel mai mare : 9.22337E18. Din reprezentare 
se observă că sînt păstrate aproximativ 7 cifre semnificative. 


9.2.2. Variabile. Variabilele utilizate în BASIC pot fi, ca şi constantele, 
de două tipuri : variabile numerice (pe care le vom numi, pe scurt, variabile) 
'şi variabile şir. 

Variabilele șir reprezintă şiruri de caractere allanumerice. Numele u nei 
variabile șir este format dintr-o iiteră urmată de caracterul e 


Exemple: AŞ, B$ 


Se pot utiliza și tablouri de variabile șir, tablourile fiind formate din 
mai multe variabile şir, cu aceeași lungime și același nume. 

Numărul şi lungimea variabilelor şir ce formează un tablou, trebuie 
deciarate într-o instrucțiune DIM, înainte de utilizarea tabloului. Variabilele 
şir ce formează un tablou, vor fi specificate prin utilizarea indicilor. De exemplu, 
dacă A $ este un tablou de zece variabile şir, a cîte 50) de elemente (caractere) 
fiecare, atunci vom referi variabilele șir prin: A $ (1), AS (2), ...,A S$ (10), 
iar tabloul A$ va fi declarat într-o instrucțiune: 


DIM A $ (10, 50). 


an unele aplicații, este necesară utilizarea unor porțiuni (snbșiruri) din- 
tr-un șir, desemnat de o variabilă şir. Pentru specificarea subşirurilor unei 
variabile șir, se foloseşte notația : (n TO n.) asociată numelui variabilei şir ; 
n este indicele primului caracter al subșirului, iar n este indicele ultimului 
“caracter al subşirului din variabila șir. De exemplu, fie B $=*123ABC*, sub- 
şirul B $ (2T05)=*“23AB“. 

Indicii n şi n pot fi constante, variabile sau expresii, valoarea lor fiind 
„cuprinsă între 1 și dimensiunea (lungimea) şirului. În cazul absenței indicelui 
n, se consideră că subşirul începe cu primul caracter al șirului, de exemplu : 
B $ (T04)=*123A“. 

În cazul absenței indicelui n se consideră că subşirul se termină cu ulti- 
mul caracter al şirului, de exemplu : B $ (3T0)="“3ABC“. Pot lipsi ambii indici, 
„caz în care subșirul este identic cu şirul (variabila șir) dat. Exemplu : B$ (T0)= 
=B Ş$ =“ 123ABC“. 

Se pot utiliza subșiruri ale variabilelor șir ce formează un tablou de 
variabile şir. 

De exemplu, pentru tabloul A $ (10, 50) format din zece şiruri de cite 
50 de caractere, se poate specifica subşirul A $ (3, 12 TO 43), format din ele- 
mentele 12 la 43, ale variabilei şir A $ (3). 

De remarcat că, în cazul unui tablou de variabile şir, trebuie selectată 
variabila şir din tabloul la care ne referim și apoi specificat un subșir din această 
variabilă. 

Pentru subșiruri formate dintr-un singur caracter, se poate folosi un singur 
indice, cel al caracterului selectat. 

Astiel: B $ (4)=B $ (4TO4)="“A“; B $ (6)=*C“, pentru variabila B $ 
„utilizată mai sus, iar în cazul tabloului A $, elementul (caracterul) al treilea 
-din şirul şapte va fi specificat prin A $ (7, 3) sau A $ (7, 3T03). 
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Variabilele numerice utilizate în BASIC sînt reale. Variabilele pot fi 
simple sau indexate. Variabilele simple sînt reprezentate fie printr-o literă, 
fie o literă şi o cifră. 


Exemple : A, VI, Q7, A9 


+ ariabilele indexate reprezintă elementele unui tablou (vector sau matrice). 
Identificatorul (numele) tabloului trebuie să fie compus dintr-o singură literă. 
litera identificator de tablou poate coincide cu numele unei variabile simple 
(fără a produce conflict), 

Tablourile, înainte de utilizare, trebuie declarate în instrucțiunea DIM 
(sau o instrucțiune MAT). Indicele poate fi o constantă, o variabilă sau o ex- 
presie şi trebuie să aibă valoarea : 

„* SŞindice SS dimensiunea declarată în DIM 
Observaţie : 

Dacă, în urma evaluării expresiei indice, nu se obține o valoare întreagă, 

se va reține partea întreagă a valorii obținute. 


Exemple: E (1,5); V (ABS (B)); A (1-3, J-K) 
9.2.3. Operatori. Operatori aritmeltici : 
ridicare la putere, 

*, / înmulţire, împărţire, 

—, + scădere, adunare. 

Operatorii au fost scriși în ordinea priorităţii în evaluare ( are prio- 
ritatea cea mai mare). Cînd se doreşte schimbarea priorității în evaluare, sau 
cînd există dubii, este bine să se utilizeze parantezele ; operaţiile din interiorul 
parantezelor vor fi executate înaintea celor din exterior. 

Operatori relaționali 


Operatorii relaționali sînt utilizați în instrucțiunea IF pentru a determina 
relaţia dintre valorile a două expresii : 


operator semnificaţie ! Foperator semnificaţie 
= egalitate >= sau =>. mai mare sau egal, 
> mai marej =. sau =<| mai mic sau egal, 
< mai mic m DAU x neegalitate. 


9.2.4. Funcţii. În alcătuirea expresiilor pot fi utilizate următoarele funcţii 
matematice : 

SIN(x) — sinus de x, unde x este un unghi exprimat în radiani; 

COS(x) — cosinus de x, unde x este exprimat în radiani; 

TAN(x)— tangentă de x, unde x este exprimat în radiani; 

ATN(x)— arctangentă de x. Rezultatul este exprimat în radiani: 


(—PI/2 < ATN (x) < PI/2) ; 


LOG(x)  — logaritm natural din x; 
EXP(x)  — calculează e*; 
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Observaţie : 
Constantele 4 și e sînt definite intern, în interpretor, şi pot fi utilizate 
în expresii prin simbolurile PI şi respectiv EE. 
SOR(x) — calculează rădăcina pătrată din x. 
ABS(x) — calculează valoarea absolută a lui x. 
INT(x) — calculează cel mai mare întreg <x. 
RND(x) — calculează un număr aleator în intervalul (0, 1). Valoarea 
argumentului x nu are importanță în calcul. 
SGN(x) — returnează : 
1, dacă x>0 
0, dacă x=0 
—1, dacă x<9. 


În toate funcţiile descrise, argumentul x poate fi în general o expresie 
oarecare. 

Argumentele funcţiilor LOG şi SOR trebuie să fie numere pozitive, În 
caz contrar sistemul va răspunde printr-un mesaj de eroare. 

În situaţia cînd, în calculul unei funcţii (expresii), rezultatul depăşeşte 
scala numerelor reprezentabile în calculator (2.71051E-20, 9.22337E£18), se 
afişează la consolă un mesaj de eroare (UNDERFLOW sau OVERFLOW 
IN I-INE NN), execuţia programului continuînd. Ca rezultat al funcţiei (ex- 
presiei) se ia cea mai mică, respectiv cea mai mare valoare reprezentabilă 
(corespunzător depășirii). De pildă, în cazul funcţiei EXP (x), valoarea argumen- 
tului trebuie să fie cuprinsă aproximativ între —45 <x < 44, pentru ca re- 
zultatul e* să poată fi reprezentat intern. 

Funcţia INT calculează cel mai mare întreg, mai mic,sau egal cu argu- 
mentul. 

Astfel : INT(7.25)=7 

INT(—7.25)= —8 
INT(—.1)=—1 

INT poate fi utilizată pentru a rotunji un număr la cel mai apropiat 
întreg. 

Astfel, INT(x+0.5) va calcula întregul cel mai apropiat de x. 

Pe lingă funcţiile descrise mai sînt disponibile : funcţii pentru lucrul cu 
şiruri de caractere, precum și funcţii speciale de intrare/ieșire. 

Astfel, pentru lucrul cu şiruri de caractere, se pot utiliza funcţiile : 


VAL.(şir) — calculează valoarea numerică a şirului, tratat ca o expresie 
aritmetică. De exemplu: VAL(“127.5-B“)=7.5, dacă variabila 
B are valoarea 120. 


LEN(şir) — calculează lungimea șirului specificat. De exemplu: 
LEN(“ABC123")=—6, sau dacă A$="*B79“, atunci LEN(A$)=$ 


STR$ (expresie) — calculează valoarea expresiei, iar rezultatul formează un 
şir de caractere, ca şi cum ar fi tipărit cu instrucțiunea PRINT. 


De exemplu STR$ (127.5-B).==*7.5%, dacă variabila B are valoarea 
120. 
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CHR$ (expresie) — calculează (determină) caracterul care are codul ASCII 
egal cu valoarea expresiei. De exemplu CHRS(65)=*A“ 


INKEY$ — citeşte un caracter de la tastatură (în cazul în care a fost 
acționată o tastă) şi întoarce codul ASCII al caracterului. În 
cazul cînd nu s-a acționat nici o tastă rezultatul este şirul nul (* *). 


Funcţiile VAL şi LEN pot fi folosite în orice expresie (aritmetică). însă 
pe prima poziţie în cadrul expresiei. Funcţiile STR$, CHR$ şi INKEVYŞ 
pot fi folosite numai în expresii de tip șir. 

Pentru executarea unei operații de intrare/ieșire, pe un port specificat, 
se pot folosi funcţiile : 


GET(x) — citeşte un octet de la portul numărul x, 0 < x < 25. 
Valoarea funcţiei va îi un număr întreg, 0 < GET(x) < 25. 
Funcţia GET poate fi folosită în orice expresie. 


PUT(x) — poate apărea numai în membrul stîng al unei instrucţiuni de atri- 
buire. Execuţia funcţiei constă în transmiterea la portul cu numărul 
x, a valorii expresiei din membrul drept, al instrucţiunii de atri- 
buire. 

Exemple : 


19 PUT(I27)=A+17 


Expresia din membrul drept este evaluată, convertită în întreg, iar cei 
mai puţin semnificativi opt biţi sînt trimiși la portul 127. 

Instrucţiunea : 19 PUT (127)==GET (255), va citi un octet de la portul 
255 şi-l va transmite la portul 127. 


9.2.5. Expresii. Expresiile utilizate în instrucțiunile BASIC sînt de două 
tipuri : expresii aritmetice (le vom numi, pe scurt, expresii) şi expresii şir (sau 
şiruri). 

Expresiile şir pot conţine ca operanzi: constante șir, variabile şir sau 
subșiruri precum și tuncţiile ce au ca valoare șiruri de caractere : STR$, CHRŞ, 
şi INKEY$. Ca operator, în formarea expreşiilor şir, poate fi utilizat operatorul 
de concatenare, notat +. De exemplu : *123*+“*ABC“=—*123ABC“, sau CHR$Ş 
(65)4+STR$(12+7)-+“CASA“ =" AI2CASA“. 

Expresiile aritmetice pot fi compuse din constante, variabile simple sau 
indexate, funcții, legate între ele prin operatori aritmetici etc. 

Exemple : 100 

VAL (70.5+B”) 
(5—34 4 3) » (7 (k-1, iJ-A/LOG (+1) 


Ordinea de execuţie a operaţiilor. 


— În expresiile fărăfparanteze succesiunea este următoarea : 
1. calculul valorilor funcţiilor, 
„2. ridicarea la putere. 
3. înmulţiri și împărțiri (cu prioritate egală), 
4. adunări şi scăderi (cu prioritate egală). 
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— Dacă două sau mai multe operaţii de aceeași prioritate apar într-o expresie, 
ele se efectuează în ordine, de la stînga la dreapta, cu excepția ridicării la putere, 
unde execuţia este de la dreapta spre stînga. 


Exemplu : 
34273=348=6561 


— Dacă într-o expresie apar paranteze, se vor executa întii operațiile cuprinse 
între paranlezele interioare. 


Observaţii : 
1. Singurele paranteze admise sînt parantezele rotunde. 
2. Operaţiile aritmetice trebuie scrise explicit. 

Exemplu : 


54B se va scrie: 5*A*B. 


9.2.6. Instrueţiuni şi comenzi. Elementele principale ale limbajului 
BASIC sînt instrucţiunile şi comenzile limbajului. Sintactic, instrucţiunile se 
deosebesc de comenzi prin faptul că orice instrucțiune este etichetată, adică 
orice instrucţiune începe cu un număr întreg (pe care-l vom numi număr de 
linie), cuprins între 0 şi 32767. 

Numerele de linie au un dublu rol: 

— determină ordinea de execuţie a instrucţiunilor (instrucțiunile pot 
fi introduse în orice ordine, însă vor fi executate în ordinea crescătoare a nume- 
relor de linie) ; 

— sint utilizate în instrucțiunile de transfer, pentru referirea instruc- 
țiunilor. 

Comenzile şi instrucțiunile vor fi prezentate detaliat în capitolele urmă- 
toare. 


9.2.7. Exerciţii 


1. Dacă dispuneţi de un tabel cu logaritmi, încercaţi să verificaţi următoarea regulă i 
a ridica 10) la o putere este echivalent cu inversul logaritmului din acel, număr. Introduceţi: 


10 PRINT 10 4 0.3020 
20 END 
RUN 


și urmăriţi în tabela de logaritmi, inversul logaritmului din 0.3020. De ce cele două rezuitate nu 
sint exact egale ? 


Observaţie : În continuare, instrucțiunea END de la sfîrșitul programului şi comanda RUN ce 
lansează în execuţie programul, nu vor mai fi specificate explicit, considerindu-se subiînţeles. 

2. S-a văzut că numerele sînt reprezentate în formatul cu virgulă mobilă, format care 
permite reprezentarea unei game largi de valori numerice reale, precizia reprezentării (6—7 cifre 
semnificative) nedepinzind de valoare. Executaţi însă următoarea instrucțiune : 


10;PRINT 1E5+1—1E8, 1E8—1E8+1 


Observaţi că pentru calculator 1E8 și 1£8+1 sînt valori egale. 
3. Pentru obţinerea logaritmilor zecimali (cei găsiţi în tabelele de logaritmi), împărţiţi 
logaritmul natural prin LOG (10). Astfel, pentru a calcula log 2 se foloseşte instrucțiunea i 


10 PRINT LOG (2)/LOG (10) 
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obţinînd rezultatul 0.301029. Încercaţi să faceţi înmulţiri şi împărțiri cu logaritmi servindu-vă 
de calculator ca de o tabelă de logaritmi. Pentru test, puteţi folosi exerciţiul 1, care calculează 
inversul logaritmului. 


4. EXP și LOG sînt funcţii inverse una alteia. Aplicîndu-le succesiv unui număr, îl vor 
lăsa neschimbat. 

Exemplu : LOG (EXP (2))=EXP (LOG (2))=2. 

Acest lucru este valabil și pentru funcţiile TAN și ATN. Puteţi utiliza acest exercițiu 
pentru a testa precizia de calcul a funcţiilor respective de către calculator, 


5. Se ştie că radiani reprezintă 180. Pentru a transforma o mărime exprimată în grade, 
în radiani, o împărțim prin 180 şi înmulţim cu x, astfel: 


19 PRINT TANE(45/180 * PI) 


calculează tan 450 (=1). Pentru a transforma radianii în grade, trebuie să împărţim prin z și 
să înmulțim cu 180. 


6. Cum utilizaţi funcţiile RND şi INT pentru a obţine un număr aleator între 1 și 6, care 
ar putea reprezenta aruncarea unui zar ? (Răspuns : INT (RND (1) + 641). 


7. Pentru a testa precizia cu care este memorat m de către calculator, executaţi instruc- 
țiunea : 10 PRINT PI, PI-3 PI-3.1 P1-3.14, P1-3.141. 


8. Funcţia INT rotunjește la întreg prin lipsă. 


Pentru a rotunji la întregul cel mai apropiat se adună 0.5.) 
Exemple : 


INT (2.94+0.5)=3 INT (5.440.5)=5 
îNT (—2.94-0.5)=—3 INT (—5.44-0.5)=—5 


Comparaţi cele de mai sus cu rezultatele obţinute în cazul că nu adunaţi 0.5. 
9. De ce numele unei variabile trebuie să înceapă cu o literă ? 
10. Reamintim citeva reguli de calcul cu puteri; 


A+10=1 

A4(—B)=1/A4B] 

A 4 (1/B)=|rădăcinajde ordin B din A 

A 4 (B+O)=A 4 B*A +C 
A4+(B*0)=(A1B)4+C 


unde A şi B sint numere întregi pozitive. 
'Testaţi aceste reguli utilizând calculatorul pentru calculul diferitelor expresii conținind + ș 
De exemplu ! 
10 PRINT 34 (240), 3+2+*310 
20 PRINT 44 (—1), 1/4 
11. Valoarea lui e, baza logaritmilor naturali, este 2.71828. Ea este memorată intern cu 


numele EE. Verifieaţi dacă t 
EXP (Î)=EE 4 X 


pentru diverse valori ale lui X. 
12. Executaţi următoarele instruoțiuni 1 


19 LET AŞ=“ATN (1) « 4” 
20 PRINT A$; ="; VAL (AS) 


(Razultacul tipărit? este x) 
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Repetaţi execuția schimbind instrucţiunea 10. 


De exemplu : 
j 5 LET xX=9 
10 LET A$="X43+2+X" 


Reexecutați pentru expresii din ce în ce mai complicate atribuite variabilei șir AŞ. 
13. Unele versiuni ale limbajului BASIC utilizează următoarele functii pentru lucrul 
cu şiruri : LEFTS,IRIGHI$, MID$ și TL$, cu următoarele semniticaţii + 


LEFT$ (AȘ, N) — calculează subșirul lui A$ compus din primele N caractere, 

RIGHT$ (AŞ, N) — calculează subşirul lui A$ compus din ultimele caractere începînd cu 
al N-lea. 

MID$ (AŞ, IN1, N2)  — calculează subșirul lui A$ compus din N2 caractere începînd cu 
al Ni-lea caracter din AŞ. 

TL$ (A$) — calculează subșirul lui AŞ format din toate caracterele lui A$ cu excep- 


ţia primului, 
Încereaţi să deserieți funcţiile de mai sus cu ajutorul decupării cu TO, 
14, Executaţi programul : 


10) A$=CHR$ (INT (RAND (0)*104+48)) 
20 PRINT A$ 
3) GOTO 10 
(instrucţiunea GOTO 10) indică repetarea execuţiei de la linia 10). 


Programul tipărește o citră (între 0-9), deoarece 48 este codul cifrei 0) la care se adună 
un număr aleator între 0) şi 9, dind codul ASCII al unei cifre (între 48 şi 57). Puteţi da altă soluție 
pentru generarea unui număr întreg între 0 şi 9? 


9.3. Comenzile și modul de utilizare 
al interpretorului BASIC 


9.3.1. Lansarea în execuție a interpretorului BASIC. Interpretorul 
BASIC este depus în memoria cu conţinut permanent (PROM), începînd de 
la adresa 800H (hexazecimal). De aceea poate fi lansat în execuţie cu ajutorul 
comenzii G(800, a monitorului sistemului, ca orice program utilizator. Pentru 
simplitate, s-a prevăzut între comenzile monitorului, o comandă specială pen- 
tru a lansa în execuţie interpretorul BASIC, anume comanda B*. 

Cînd interpretorul BASIC intră în execuţie, va tipări pe display mesajul 
READY, indicînd faptul că se aşteaptă instrucţiuni sau comenzi de la utili- 
zator. În continuare, utilizatorul va introduce un program de la tastatură sau 
va citi un program de pe casetă magnetică. Programul astfel introdus poate 
fi executat, listat pe display sau modificat (cu ajutorul unor facilități de edi- 
tare) după dorința utilizatorului. După execuție, programul poate fi salvat pe 
casetă și şters din memorie, pentru a se introduce un nou program. 

La terminarea unei sesiuni de lucru cu interpretorul BASIC, se va ieşi 
de sub controlul interpretorului acționînd comutatorul (RESET) de la consolă, 
lansîndu-se în execuție monitorul sistemului. 

Există două situaţii speciale de lansare în execuţie a interpretorului 
BASIC. 


* Comanda B este disponibilă numai în “versiunea VB.1. 


Comenzile şi modul de utilizare 55 


În prima situaţie, se utilizează subrutine în limbaj maşină, apelate din- 
tr-un program BASIC. În acest caz, înainte de lansarea în execuţie, a interpre- 
torului, se va introduce în memorie codul pentru subrutinele apelate, cu aju- 
torul comenzilor monitorului. Apoi se lansează interpretorul BASIC de la 
adresa 815H (deci cu comanda G0815). 

În cea de-a doua situaţie lansarea interpretorului are loc de la adresa 
829H, fără iniţializări. Lansarea de la această adresă (cu G(829) se folosește 
cind în memoria utilizată de interpretor pentru păstrarea programelor, se află 
un program care nu trebuie şters (de exemplu cînd s-a ieşit din BASIC în 
Monitor şi se dorește să se intre iarăşi sub controlul interpretorului, fără şter- 
gerea programului BASIC introdus în sesiunea anterioară). 


9.3.2. Editarea programului. Există facilităţi de corectare a unei linii 
în cursul introducerii ci de la consolă (tastatură), sau de editare a programului 
deja introdus (ştergerea unei linii sau înlocuirea ei cu altă linie). 

Astfel : 

— ştergerea ultimului caracter introdus se realizează acţionind DEL 

— Ştergerea liniei în curs de introducere se face acționind simultan 
CITIRI și X 

— ştergerea unei instrucțiuni din program se face prin tipărirea numă- 
rului ei de linie şi RETURN. 

O instrucțiunea se poate înlocui prin tipărirea noii instrucțiuni cu acelaşi 
număr de linie cu vechea instrucțiune. 


Observaţie : Orice linie introdusă de la consolă (instrucțiune, comandă sau 
linie de date) va fi luată în considerare de sistem la acționarea lui RETURN. 


9.3.3. Listarea şi salvarea pe casetă a unui program. Un program BASIG 
aflat în memorie poate fi listat la display sau salvat (stocat) pe casetă mag- 
netică. Aceste operaţii pot fi executate indiferent dacă programul a fost exe- 
cutat sau nu. Pentru listarea programului se folosește comanda : 


LIST NI1,N2 


unde: NI şi N2 sînt numere de linie. 

Execuţia comenzii constă în listarea programului existent în memorie 
în ordinea crescătoare a numerelor de linie. Parametrii N1 și N2 sint opţio- 
vali. În cazul în care se specifică un singur număr de linie se vor lista instruc- 
ţiunile ce au numărul de linie mai mare sau egal cu numărul specificat în 
comanda LIST. Cind s2 specifică ambii parametrii, se vor lista instrucțiunile 
care au numărul de linie cuprins între NI şi N2 inclusiv. Execuția comenzii 
poate fi oprită de la consolă, acţionînd CTRI.. 

Pau 

Pentru salvarea pe casetă a unui program se folosește comanda SAVE. 
Dacă programul foloseşte subrutine în limbaj maşină, la comanda SAVE se 
salvează automat şi subrutinele apelate. Dacă comanda SAVE este executată 
după ce programul a fost executat, atunci se salvează pe casetă şi valorile 
variabilelor utilizate în execuţia programului. 

Deoarece identificarea programelor de pe easetă se face manual de către 
utilizator, este bine ca înainte de salvarea unui program să se înregistreze 
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pe casetă un text vorbit (titlu), referitor la programul ce urmează, necesar 
identificării. Apoi se conectează casetofonul pe înregistrare la calculator și se 
lansează în execuție comanda SAVE. 


9.3.4. Citirea unui program de pe casetă. Pentru citirea unui program 
de pe casetă se folosește comanda LOAD. Înainte de a executa comanda 
LOAD, trebuie să se depisteze (sonor) începutul programului (după titlul 
înregistrat la salvarea programului) și apoi să se conecteze casetofonul la cal- 
culator, pe redare. Programul este citit de pe casetă în memoria calculato- 
rului împreună cu eventualele subrutine în limbaj mașină și cu variabilele, 
exact în starea în care a fost salvat, vechiul program din memorie fiind şters. 

Pentru o citire cît mai fiabilă este bine ca volumul redării să fie reglat 


corespunzător. 


9.3.5 Execuţia unui program. Pentru a lansa în execuţie un program 
BASIC aflat în memorie se pot folcsi comenzile : 


RUN nr. linie 
sau 
GOTO nr. linie 


execuţia programului începînd de la linia cu numărul specificat în comandă. 
Pentru comanda RUN, numărul de linie poate să lipsească, caz în care exe- 
cuția începe cu prima instrucțiune din program. Deosebirea dintre cele două 
comenzi constă în faptul, că RUN iniţializează (șterge) variabilele înainte de 
lansarea în execuţie, pe cînd GOTO păstrează valorile variabilelor obținute 
într-o execuţie anterioară. De exemplu, dacă se citește un program de pe 
casetă împreună cu valorile variabilelor (eventual tablouri), atunci lansarea 
sa În execuţie se va face cu comanda GOTO nl, nl fiind numărul de linie 
al instrucţiunii aflată după instrucţiunea DIM în program, pentru a se putea 
folosi valorile variabilelor tablou salvate pe casetă. Dacă nu se doreşte utili- 
zarea valorilor variabilelor, obținute într-o execuţie anterioară, programul 
poate fi lansat în execuţie cu comanda RUN. 


Observaţie : Pentru a nu se salva valorile variabilelor pe casetă atunci 
cînd nu sînt necesare, trebuie să se știe faptul că tabela de variabile este 
ştearsă în următoarele cazuri : 

— la introducerea unei noi linii în program, 

— la ștergerea unei linii din program, 

— la execuţia comenzii SCRATCH (însă în acest caz este şters şi pro- 
gramul). 

Execuţia unui program este oprită la : 

— depistarea unei erori în program, 

— execuţia unei instrucțiuni STOP sau END 

— întreruperea de la consolă, acţienind caracterul CTRL, 

— întreruperea de la consolă, acționind RESET, caz în care se intră sub 
controlul Monitorului. A pă 

La terminarea execuţiei, sistemul tipăreşte READY. După! eventuale 
corectări iaserări de instrucțiuni, programul poate fi executat din nou. 
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9.3.6. Ştergerea unui program din memorie. Înainte de introducerea 
unui nou program de la tastatură, vechiul program din memorie trebuie sters, 
altfel liniile lui vor interfera cu liniile noului program. Pentru ştergerea progra- 
mului din memorie (inclusiv a eventualelor subrutine în limbaj mașină) se 
folosește comanda: SCRATH (sînt suficiente primele trei caractere: SCR). 


9.3.7. Exereiţii 


1. S-a văzut că variabilele utilizate de un program în timpul execuţiei sînt șterse din 
memorie la introducerea sau ștergerea unei instrucțiuni a programului și la comanda SCR. În 
toate aceste cazuri, este alterat însă și programul o dată cu ștergerea variabilelor (desigur, există 
posibilitatea de a șterge o linie și a o reintroduce cu același conţinut). 

O posibilitate de a șterge variabilele fără a altera programul, este prin execuţia comenzii 
RUN ni, unde nl este numărul de linie al instrucţiunii END sau STOP din program. 

Acest lucru este valabil deoarece, la începutul execuţiei programului, prin comanda RUN 
se șterg variabilele utilizate de program (într-o execuţie anterioară), iar apoi se va executa instruc- 
ţiunea END sau STOP. Ştergerea variabilelor este utilă, în cazul salvării pe casetă a progra- 
melor ce conţin variabile (eventual tablouri), ale căror valori nu sint necesare la reîncărcarea 
de pe casetă. Testaţi acest lucru, pentru programe care conţin tablouri suficient de mari, și veţi 
observa diferenţa de timp la salvare și încărcare pe casetă. 


2, Executaţi următorul program 1 


10 LET X=7 
20 PRINT X 
30 END 


folosind comanda RUN. Executaţi acum programul începînd de la linia 20 cu comenzile GOTO20 
și RUN20. Observaţi că rezultatul este diferit (în primul caz este 7 în al doilea 0). Acest lucru 
se datorează faptului că, comanda RUN șterge variabilele rămase dintr-o execuţie anterioară 
(lucru care s-a mai spus), iar interpretorul BASIC consideră variabilele nedefinite ca avind valoa- 
rea zero. 


3. Pentru a testa faptul că comanda SAVE salvează împreună cu programul și variabilele 
utilizate, se poate introduce un program, de exemplu cel de la exerciţiul 2, și după execuţie se 
va salva pe casetă, Pentru salvare se vor executa următoarele acţiuni : 

— poziţionarea benzii în zona în care se doreşte să se înregistreze programul, 

— utilizînd microfonul, se va da un nume programului ; acest lucru nu este absolut nece- 
sar, dar este util pentru regăsirea ulterioară a programului, 

— se conectează casetofonul (prin cablul corespunzător) cu calculatorul, 

— se introduce comanda SAVE (fără a acţiona tasta RETURN), 

— se comută casetofonul pe înregistrare, 

— se acționează RETURN, 

— se urmărește apariţia pe ecranul televizorului a mesajului de sfirșit de operaţie 
(READY). La apariţia mesajului, opriţi casetofonul. Pe durata înregistrării se va auzi un zgomot 
specific, în difuzorul asociat calculatorului, iar imaginea pe televizor va fi formată din dungi 
variabile (în primele 10) secunde din înregistrare, se depune un preambul necesar sincronizării, 
iar apoi programul BASIC și variabilele). 


În continuare, se şterge programul din memorie cu ajutorul comenzii SCR (se;poate testa, 
eă memoria nu conţine nici un program, introducind comanda LIST). 

În continuare, se încarcă programul de pe casetă în memorie executind următoarele 
acţiuni : 

— se rebobinează banda pentru a o aduce la începutul fișierului (zonei) cu programul. 
Pentru depistarea începutului programului se va face uz de numele înregistrat înaintea progra- 
mului, 

— se conectează casetofonul la calculator, pe redare, 

— se reglează volumul redării suficient de mare (3/4), iar tonalitatea la valoare înaltă 
(dacă casetofonul are reglaj de tonalitate), 

— se introduce comanda LOAD (fără a acţiona tasta RETURN), 
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— se porneşte casetofonul, 
— se urmărește dacă beculețul de la consolă s-a aprins și apoi se acționează RETURN, 


— se urmărește apariţia pe ecranul televizorului a mesajului de sfirșit de încărcare. 
Astfel, în cazul în care operația a decurs fără erori, vor fi afișate două numere în hexazecimal 
care reprezintă : adresa de inceput a zonei de memorie salvată pe casetă și respectiv — lungimea 
ei (numărul de octeți). Apoi este tipărit mesajul READY, de către interpretor. În cazul în care 
s-au depistat erori la încărcare, monitorul va tipări ? şi va prelua controlul. În acest caz, încăr- 
carea programului de pe casetă trebuie reluată, însă este indicat a se intra în BASIC din monitor 
cu comanda G(829 (fără iniţializări), pentru a se lista (cu LIST) programul încărcat și a se constata 
amploarea erorii de încărcare. Uneori eroarea poate fi corectată editind o anumită linie, fără a 
mai încărca încă odată programul de pe casetă. 


După încărcarea programului, se execută comanda GOTO20, şi se observă că rezultatul 
este 7, deci împreună cu programul a fost salvată și variabila X. 


4. Introduceţi un program BASIC şi apoi opriţi alimentarea de la reţea a calculatorului, 
Realimentind calculatorul și lansind interpretorul BASIC veţi constata că programul s-a pier- 
dut. Deci, în cazul programelor mari, este indicat salvarea lor pe casetă, chiar în faza de punere 
la punct, pentru a nu risca reintroducerea lor în întregime. 


9.4. Instrucţiunile limbajului BASIC 


9.4.1. Exemplu de program. Înainte de a începe prezentarea instrucțiunilor limbajului 
BASIC, se va da un exemplu de program scris în BASIC, pentru rezolvarea sistemului de două 
ecuaţii lineare cu două necunoscute. 


ax+by=ec 
dx-+ey=t 


Sistemul are soluție unică dacă ae-bdz, caz în carei 


ce—bi 7 af—cd 


aeba ? YI  ae—bd 


Dacă ae—bd=—0, atunci, fie nu există nici o soluţie (sistem imposibil), fie există o infini- 
tate de soluţii (sistem nedeterminat) însă, nu există soluție unică. Programul este următorul i 


10 REM “PROGRAM CE REZOLVA UN SISTEM” 
15 REM “DE DOUA ECUATII LINEARE” 

20 PRINT “INTRODUCETI COEFICIENTII A, B, C, D” 
30 INPUT A,B,C,D 

40 LET G=A*E—B*D 

50 IF G=0 THEN 120 

60 PRINT “INTRODUCETI TERMENII LIBERI C, F” 
70 INPUT C,F 

80 LET X=(C*E—B*F)/G 

90 LET Y=(A*F—C*D)/G 

100 PRINT X, Y 

110 STOP 

120 PRINT “SISTEMUL NU ARE SOLUTIE UNICA” 
130 END 


Privind acest program se observă în primul rînd că, în scrierea sa, sînt 
folosite numai litere mari. În al doilea rînd,se constată că fiecare linie a pro- 
gramului începe cu un număr ; el este numărul de linie discutat în capitolul 
precedent. În al treilea rînd, se observă că fiecare instrucţiune începe, după 
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numărul de linie, cu un cuvînt care determină tipul instrucţiunii. Astfel, în 
exemplul dat sînt folosite şapte instrucţiuni (REM, PRINT, INPUT, LET, 
IF, STOP şi END). 

O altă observație, care nu este evidentă din program, constă în aceea 
că, in BASIC spaţiile nu au nici o semnificaţie, cu excepţia celor din textele 
cuprinse între semnele apostrof (ca în liniile 10,20,60). 

În continuare vor fi prezentate, pe rînd, instrucţiunile limbajului BASIG 


9.4.2. Comentarea unui program. Primele două instrucțiuni, din exem- 
plul de mai sus, nu au nici un rol în rezolvarea sistemului de ecuații. Ele sînt 
scrise pentru a introduce comentarii într-un program BASIC. 

Formatul instrucţiunii este : 

nr. linie REM comentariu 

Instrucţiunea REM poate apărea oriunde se doreşte introducerea unui 
comentariu, în cadrul unui program. Deoarece sistemul elimină spaţiile din orice 
șir de caractere neinclus între semnele apostrof () este bine ca un comentariu să 
se includă între aceste semne. 

Exemplu : 


130 REM ”COMENIARIILE OCUPA „MEMORIE UTILA” 


9.4.3. Terminarea unui program. Pentru a opri execuția unui program, 
pot fi utilizate instrucţiunile END sau STOP. 
Formatul instrucţiunii STOP este: 


nr. linie STOP 
La întîlnirea instrucţiunii STOP în program, sistemul va serie mesajul 3 
STOP AT NN 


unde NN este număru de linie al instrucţiunii STOP care a produs oprirea 
execuției. Într-un program pot fi utilizate mai multe instrucţiuni STOP, în 
funcţie de necesităţi. În exemplul din paragraful 9.4.1. instrucțiunea STOP are 
numărul de linie 110. 

Formatul instrucţiunii END este: 


nr. linie END 


Spre deosebire de instrucțiunea STOP, într-un program trebuie să existe 
o singură instrucţiune END şi să fie ultima instrucțiune din program (să aibă 
numărul de linie cel mai mare). 


9.4.4. Instrucţiunea de atribuire (LET). Formatul instrucţiunii LET este 
următorul : 

nr. linie variabilă = expresie 
sau 

nr. linie LET variabilă = expresie 
unde : 

— variabila poate fi o variabilă numerică sau variabilă șir, simplă sau 
indexată, sau funcţia PUT; 

— expresia din membrul drept poate fi aritmetică sau expresie șir. 
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Execuţia instrucţiunii constă în evaluarea expresiei din membrul drept 
şi atribuirea valorii obținute, variabilei din membrul stîng. 


Exemple : 
5 B=B+1 20 C$=INKEY$ 
10 AŞ="AB0D179% 30 LET A=4,17+G 


Observaţie 3 
O variabilă utilizată într-o expresie, fără a fi fost definită în prealabil, pri- 


mește automa!l valoarea zero. Astfel, în instrucţiunea 30 de mai sus, dacă vari- 
abila C nu a fost definită, valoarea lui A după execuţia instrucţiunii 30) va îig4.17. 


50 X=X+4+Y 43.5 
60 LET W7=((W-—X)/4.3)*SQR (Z(1)—A)/B 
90 AS (7 10 10)=CHES (65)4-,,123% 

Dacă expresia șir atribuită unei variabile şir, este mai lungă decit dimen- 
siunea variabilei (stabilită prin DIM sau printr-o atribuire anterioară), atunci 
se atribuie variabilei şir doar prima parte din expresia şir (egală cu lungimea 
variabilei), restul expresiei şir ignorîndu-se. Dacă lungimea șirului din membrul 
drept este mai mică decit lungimea variabilei şir, restul de caractere se com- 
pletează cu spații. 

Exemple ; 
10 A$=—"'12345678” 
50 A$ (2T05)=,,ABCDEFG”] 


În acest caz, A $ va deveni “1ABCD678”, deci, au fost păstrate doar 
primele patru caractere din şirul "ABCDEFG”. Dacă în lacul instrucţiunii 20 
de mai sus, se folosea instrucțiunea : 


20 AŞ (2T05)="AB” 
valoarea variabilei A $ ar îi devenit ”1AB*678” 
30 BS=STR$ (A4+B—17)4-''MEDIA” 
49I (, INT (K 4 10))=COS (EXP (K+1) 
9.4.5. Utilizarea variabilelor indexate (DIM) 
Formatul instrucţiunii este : 
nr. linie DIM tableu 1 (dimens), tablou 2 (dimens, dimens) ,-s 
unde : 
— tablou 1, tablou 2, sînt identificatori (nume) de tablou (vectori, 
matrici sau variabile şir) + 
— dimens reprezintă expresii ale căror valori definesc dimensiunile table- 
urilor ; este necesară îndeplinirea condiției: 
1 < dimens 254 


Tablourile numerice pot avea una sau două dimensiuni (vectori sau 
ma trici) 
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Exemplu : 
1104DIM A (50), B(M,N) 
Instrucţiunea 110 declară două tablouri A și B, A fiind un vector cu 


50 de elemente, iar B o matrice cu MXN elemente (M, N cunoscute). 

Execuţia instrucţiunii constă în alocarea, memoriei pentru tablourile 
declarate şi iniţializarea tuturor elementelor ale fiecărui tablou numeric cu 
zero. 

Tablourile de variabile şir trebuie declarate în instrucțiunea DIM, indi- 
cîndu-se numărul de variabile şi lungimea variabilelor. 

Exemplu : | 

10 DIM AS (15,20), BS (50)] & 

Instrucţiunea 10) declară un tablou A $ format din 15 variabile şir a cîte 
20 de caractere fiecare şi o variabilă şir B $ cu lungimea de 50 de caractere. 
De remarcat faplul că, variabilele șir (exemplu B $) nu trebuie declarate într-o 
instructiune DIM, ele putind fi utilizate direct în instrucțiuni de atribuire sau de 
intrare/ieșire. "Tablourile şir trebuie declarate într-o instrucțiune DIM înninte 
de utilizare. Folosirea lor se face prin specificarea unei anumite variabile şir 
componente, şi nu a întregului tablou. De exemplu, instrucţiunea : 


20,A $,=—"1234” 
este incorectă pentru că, A $ a fost declarat tablou în instrucțiunea 16. 
Corect ar fi: 
[20 AS (2)=m''1234” 


instrucțiunea în urma căreia, variabila a doua din tabloul A $ primeşte valoarea 
”1234”. Tot corectă este şi instrucțiunea : 


20 AS (2[10 TO 13)="1234” 


În cazul tablourilori(variabilelor) şir, execuţia instrucţiunii DIM constă 
în alocarea de memorie, cîte un octet pentru fiecare element (caracter), ini- 
țializat eu codul spațiului (ADH). 

Tablourile numerice şi cele şir pot fi declarate intercalat, în aceeaşi 
instrucțiune DIM. 

Exemplu : 


10 PIM A (10, 10), B$ (100), C(10) 
9.4.6. Exerciţii 
1. Introduceţi următoarea secvenţă de instrucțiuni î 


10 LET A$='9X*+-*Y"] 30 LET AŞ (4)=CHR$ (162) 
203LETEAŞ (2)=CHR$ (162) 40 PRINT A$ 
(162 este codul ghilimelelor) 
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De remarcat că secvenţa de mai sus nu este echivalentă cu: 
19 LET AŞ="X ar prag 


deoarece, în acest caz, membrul drept al instrucţiunii de atribuire este tratat ca o expresie de 
tip șir, evaluată la ''XY''. O altă modalitate corectă de a intreduce ghilimele într-un şir 
este introducerea sucesivă. Actfel instrucțiunea : 


10 LET A$="X" 4 rog 
este echivalentă cu secvența de mai sus. 


2. Fie secvenţa de instrucțiuni: 


10 LET A$='12345678 40 PRINT A$ 
20 PRINT AS 50 LET A$="'1234" 
30 LET A$="ABC” 69 PRINT AS 


După execuţie se va obţine eroarea 28 în linia 50. Acest lucru este consecința faptului 
că în linia 30 are loc o redimensionare a șirului AŞ, la lungimea de 3 caractere (de la 8 cite avea 
inițial). Pentru a evita această redimensionare, linia 30) se poate scrie 30 LET A$ (TO)= "ABC, 
şirul AŞ rămîn înd de lungime 8, prin completarea șirului “ABC!” cu 5 spaţii. Deci, trebuie reținut 
faptul că în gestiunea șirurilor nu se folosesc doi indicatori de lungime : unul păstrînd lungimea 
maximă, iar celălalt lungimea efectivă a șirului (sau lungimea maximă să fie pentru toate șirurile 
o constantă, exemplu 256 caractere). 


3, Introduceţi programul 1 


5 DIM B$ (3, 8) 40 PRINTgBS (2) 

10 LET B$ (2)=''12345678'' 50 LET B$ (2)="'12345' 
20 PRINT BS (2) 60 PRINT B$ (2) 
30 LET B$S(0)="MPQ'” 70 END 


Executînd programul nu se va obține eroare, ca în cazul exerciţiului precedent. Deci, 
în cazul tablourilor de şiruri, nu are loc redimensionarea unui șir component la o valoare mai 
mică, ci se păstrează dimensiunea (8) declarată în DIM, prin completarea automată cu spații. 
Pentru a nu se completa cu spaţii (păstrindu-se totuși dimensiunea de 8 caractere) se poate 
utiliza specificarea cu TO. Astfel instrucţiunea 30 devine : 30 LET B$ (2,1 T03)="MPQ. 


În acest caz, șirul tipărit de instrucțiunea 40 va fi : ''MPQ45678”, 


4. În cazul utilizării unor tablouri mari se poate obţine la execuție mesajul de eroare 
MEMORY FULL, indicînd faptul că nu mai există memorie suficientă pentru alocarea tablou- 
lui. Trebuie să se aibă în vedere faptul că, pentru fiecare element al unei variabile tablou numerice, 
se alocă cîte 4 octeți. Astfel, instrucţiunea 10 DIM A (11,11), B (16,16) va aloca două tablouri 
numerice, primul ocupînd aproximativ 0,5 Ko şi al doilea 1 Ko. Ce acţiuni se pot indica la apari- 
ţia acestui mesaj de eroare? 


9.4.7. Instrucţiuni de intrare/ieşire. Instrucţiunile de intrare/ieşire per- 
mit să se introducă date (valori ale variabilelor) pentru program și să tipărească 
rezultate sau mesaje către utilizator. În execuţia acestor instrucțiuni sînt 
folosite în mod obișnuit tastatura şi display-ul, însă pot fi utilizate oricare 
din perifericele sistemului, dacă se au în vedere facilităţile mai deosebite de 
intrare/ieșire materializate prin funcţiile GET şi PUT sau subrutine în limbaj 
mașină, apelate din programul BASIC, cu instrucţiunea CALL. 


Iustrueţiunea INPUT. 
Format;: 
nr. linie INPUT listă de variabile 
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Lista de variabile poate conţine variabile simple şi variabile indexate 
sau variabile şir, separate prin virgule. 

Instrucţiunea INPUT este folosită pentru atribuirea de valori variabilelor 
din listă, valorile fiind introduse de la tastatură (consolă) în timpul execuţiei 
programului. 

Atunci cînd se execută instrucțiunea INPUT, sistemul va tipări la con- 
solă(:) indicînd că aşteaptă date de la consolă. Se vor introduce constantele 
dorite separate prin virgule, linia introdusă va fi luată în considerare de sis- 
tem la acționarea tastei RETURN. Dacă s-au introdus mai puţine date decît 
variabile în instrucțiunea INPUT, sistemul va tipări din nou (:) şi introducerea 
datelor va continua pînă ce toate variabilele au primit valori. 

Dacă se introduc mai multe constante decit sînt necesare, constantele 
suplimentare se ignoră. În cazul în care se doreşte oprirea execuţiei progra- 
mului, în timp ce sistemul așteaptă date de la consolă, se acţionează tasta 
CTRL și C simultan, iar sistemul va tipări READY. 

Exemplu : 

50 INPUT I,A,B, V(2). 


La execuția instrucţiunii uy sistemul va tipări (:) la consolă şi va aștepta 
introducerea a patru constante. Dacă se introduc doar trei numere, sistemul 
va tipări iarăşi (:) indicînd că așteaptă date. Astfel, la consolă va apărea: 

: 4, 17.5, 9E10 

: 10:3 

Dacă este comisă o eroare în timpul introducerii de date, sistemul va 
tipări un mesaj de eroare, iar ultima linie de date va trebui reintrodusă. Astfel, 
dacă în exemplul de mai sus s-ar fi introdus: 

; 4, 17M5, 9E10, 10.3 
sistemul ar fi răspuns: 

INPUT ERROR, TRY AGAIN 

: (aşteaptă noi date) 

Introducerea datelor se repet: corect astfel: 

: 4417.5, 9E10,810.3 

În cazul folosirii variabilelor șir, trebuie remarcat că, din linia cu con- 
stante şir corespunzătoare, introdusă de la consolă, sînt eliminate spaţiile 
neincluse între ghilimele. 

Exemple : 


10 INPUT AŞ, B, CS (2T05))3 | 
1» "SINT GATA”, 73, ABCD 
Variabila A $ a primit valoarea "SINT GATA”, variabila B valoarea 73 


iar variabila C$ valoarea ABCD, pentru elementele 2 la 5. Textul SINT GATA 
a fost introdus între ghilimele, pentru a se păstra spaţiul dintre cuvinte 


Instrucţiunile READ şi DATA. Instrucţiunea READ are același efect cu 
INPUT, cu deosebirea că datele nu sînt introduse de la consolă, ci sînt citite 
dintr-un bloc de date, definit cu instrucțiunea DATA. 
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Formatul instrucţiunilor : 

nr. linie READ listă de variabile 

nr. linie DATA listă de constante. 

Pentru a putea ţine evidenţa constantelor citite in instrucţiunile DATA, 
interpretorul folosește un indicațor la constanta ce urmează a fi citită din 
blocul de constante, care apar în instrucțiunile DATA, din program. În cazul 
în care nu se pot iniţializa toate variabilele din instrucțiunea READ, din 
cauza epuizării constantelor din instrucţiunile DATA, sistemul va da un mesaj 
de eroare. 

O instrucţiune DATA nu este asociată unei instrucțiuni READ, ci toate 
instrucțiunile DATA sînt tratate ca şi cum ar forma un bloc de date. 

"nstrucțiunea DATA poate apărea oriunde, în cadrul programului. 


Exemplu : 
150 READ X, Y,Z 
200 READ A 
250 FOR I=1 TO 10 
255 READ B(1) 
260 NEXT 1 


400 DATA 4.2, 7.5, 25, —1, „1, .01, .001, —1 
450 DATA 2., 1, 7, 9, 1E7, 3.5 


Primele trei constante sînt citite pentru X, Y şi Z. Pi 7) 
Valoarea —1 va fi atribuită lui A. Următoarele zece valori de la .1 la 3.5 
vor fi atribuite elementelor vectorului B. gi | MD: 85 


Instrucţiunea RESTORE 
Format : 
nr. linie RESTORE 


Este folosită pentru a inițializa indicatorul din blocul DATA, pe prima 
instrucțiune DATA din program. Astfel, se permite reutilizarea datelor. 


Exemplu : 
20) FOR K=0 TO 10 
30 READ B(K) 
40 NEXT K 
5) RESTORE 
60 READ X, Y, Z 
70 RESTORE 
200 READ 
500 DATA 1, 2, 3, 4,5,6,7,8,9,10 


Elementele vectorului B vor primi valorile 1,2,..., 10; variabilele 
X, Y, Z vor primi valorile 1, 2, 3, iar instrucțiunea 200READ va citi începînd 
cu 1. 

În instrucțiunea READ pot fi folosite și variabile şir. 


Exemplu : 
10 READ AŞ, B, C$ 


100 DATA “ABC 123”, 17.5, AB123 
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Variabila A$ primeşte valoarea “ABC 123“. iar C$ valoarea AB 123. 
Instrucţiunea PRINT 
Formatul instrucţiunii este : 


nr. linie PRINT listă 
sau 
nr. linie PRINT 


lista poate conţine: constante, variabile simple sau indexate, expresii sau 
şiruri. 

Instrucţiunea PRINT este folosită pentru tipărirea valorilor curente ale 
expresiilor care apar în listă. În cazul cînd lista lipsește se va trece la începutul 
liniei următoare pe display. 

Numerele reale sînt tipărite în următorul format : 

— dacă numărul este negativ se tipărește semnul — 

— dacă valoarea absolută a numărului N este cuprinsă între : 


0.1 SN sg 9999999, 


atunci numărul este tipărit fie ca număr întreg (dacă valoarea sa este 
întreagă), fie ca număr zecimal, folosindu-se punctul ca separator al 
părţii întregi de partea zecimală. 

— dacă valoarea numărului nu se încadrează în intervalul de mai sus, 
atunci numărul este tipărit în notație ştiinţifică (exponențială) astiel ; 


[—] XXX EA Y 


unde: | | — indică partea opţională a reprezentării, dacă numărul este 
negativ se tipăreşte — ; 
X — reprezintă o cifră a numărului ; 
E  — indică reprezentarea exponențială ; 
Y — este cifră a exponentului. 

Valoarea numărului va fi: [—] X.XXXXX X 101-1Y 

În funcţie de separatorul folosit între elementele din listă, se va face 
spațierea între valorile tipărite. 

Ca separatori pot fi folosiți „,“ sau „; “ 

Linia pe care se tipăreşte este împărţită în zone. Lungimea unei zone 
este de 15 caractere. Pentru un display cu lungimea linici de 30 caractere vor 
exista două zone începind cu poziţiile 0 şi 15. 

Exemple : 
10 LET X=5 
50 PRINT X, (X*2) 46, X*2 


60 PRINT X 44, X—25, X—100 
80 END 
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La display va apărea : 


9. [Ca 30) — poziţii 
5 1.90000E 06 
10 625 

—20 —95 


Cind valoarea de tipărit depăşeşte lungimea unei zone, elementul următor 
este tipărit la începutul primei zone libere. 


19 LET X=25 
20 PRINT “SOR (X)=”, SQR (X) 


30 END 
Se va tipări: 
p... 15... 30 <— poziţii 
SQRGĂ)= 5 


Folosirea ca separator a lui „;“ conduce ia tipărirea fără salt la urmă- 
toarea zonă. 

Dacă lista din instrucțiunea PRINT nu se termină cu „, “ sau „; “atunci, 
la sfirşitul execuţiei instrucţiunii (după tipărirea tuturor elementelor din listă), 
se va trece la începutul liniei următoare. Terminarea listei din instrucțiunea 
PRINT, cu unul din separatorii „, “ sau „;“ este utilă în cazul tipăririi mai 
multor valori într-un ciclu, peniru a se face economie de spaţiu de afișare. 


Exemplu : Programul 


10 FOR I=1 TO 19 
20 PRINT 1 

30 NEXT I 

40 END 


Va tipări fiecare valoare la început de linie 
1 
2 
3 
19 
Dacă se folosește separatorul „ ,“ 


19 FOR I=1 TO 19 
20 PRINT 1, 

30 NEXT 1 

40 END 


atunci se vor tipări cîte două valori pe linie. Pentru a se putea tipări oriunde pe 
suprafaţa display-ului formată din 32 de linii a 30 de caractere (coloane) fie- 
care, se poate folosi în instrucţiunea PRINT funcţia : AT(linie, coloană). 
Exemplu : 
10 LET A$="A="” 
20 PRINT AT (16,15); AS; 190 


va tipări la mijlocul ecranului textul A=100. 
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Funcţia AT este utilă în afişarea de valori sau texte, pe un desen realizat 
cu instrucţiunile grafice, sau pentru tipărirea într-o anumită zonă a ecranului, 
indiferent de poziția curentă, în care urma să se tipărească. Poziţia (1, 1)este 
în colțul din stînga sus al ecranului, iar (32, 30) în dreapta, jos. 


9.4.8. Exerciţii 


1. Instrucţiunea INPUT este deseori precedată de instrucțiunea PRINT, de exempluş 
10 PRINT “INTRODUCETI DATELE” 
20.PRINI /X=: 
30 INPUT N 


Valoarea lui N va fi afișată pe același rind cu mesajul X=—, deoarece instrucțiunea 
29 PRINT se termină cu ;. 
Similar, pentru introducerea de texte: 
10 PRINT “DORITI O NOUĂ EXECUTIE”; 
20 INPUT R$ 


răspunsul introdus fiind DA sau NU, în urma căruia în prograin se va executa o decizie. 
2. Executaţi următorul program : 


10 INPUT AS 
20 PRINT A$; ="; VAL (AS) 
30 GOTO10 


Introduceţi instrucţiuni PRINT suplimentare astfel încît calculatorul să precizeze ce 
intenţionează să facă și să ceară politicos datele de intrare. De remarcat că expresia introdusă 
spre evaluare (în A$), poate conţine orice fel de prelucrări numerice inclusiv variabile, a căror 
valoare trebuie introdusă în prealabil. De asemenea, șirul A$ trebuie să fie alocat într-o instruc- 
țiune DIM, iar în instrucțiunea 10 să se utilizeze notația (TO) pentru a împiedica relocarea 

5 DIM A$ (40) 
16 INPUT AŞ (TO) 


3. Cum se poate opri execuţia programului din exerciţiul precedent? (CTHL/C în 
INPUT sau CTRL între instrucţiuni, sau + + - RESET). Dacă execuţia s-a oprit între instruc- 
ţiuni, cum se poate relua fără alterarea variabilelor ? 


4. Scrieţi un program care calculează suma curentă a numerelor introduse. 

Indicaţie : Se utilizează variabilele T pentru păstrarea totalului curent și V pentru numă- 
rul introdus 'T se inițializează cu valoarea (0. Se citește un număr în V, se adună la 1 și se tipă- 
reşte T. Se repetă cu introducerea altui număr. 


5. Pentru a simula mișcarea unui simbol grafic* într-o anumită direcţie se va afișa și se 
va șterge simbolul respectiv, progresînd cu cite un pas în direcția respectivă. Se va utiliza în acest 
scop instrucțiunea PRINT cu funcția AT. 

19 LET X=1 

20 PRINT AT(5,X);“C“; 
30 PRINT AT(5,X);* “; 
40 LET X=X+1 

50 GOTO 20 


Programul de mai sus are dezavantajul că, la terminarea liniei cînd X devine >30, se con- 
tinnă incrementarea sa. Pentru a evita acest lucru se introduce instrucțiunea : 


45 IF X>30 THEN 10 


* Caracterul grafic este notat cu „C* 
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care, reîncepe execuţia de la linia 10) dacă X a devenit mai mare decit 30. Un alt dezavantaj 
este timpul scurt în care simbolul apare pe ecran, datorită intervalului de timp scurt între afi- 
șare și ștergere. Pentru a mări această durată se introduce între liniile 20 şi 30 un ciclu FOR fictiv ? 


22 FOR F=1 TO 19 
25 NEXT F 


Acest lucru însă, are dezavantajul că micşorează viteza globală de execuție a programului. 
Se recomandă următoarea soluţie : 


10 LET X=1 4ADIPRINI AT (0,P)a ue ":AT(O.X): "0; 
20 LET P=X 50 IF X=29 THEN 10 
30 LET X=X+1 60 GOTO 20 


Programul folosește două variabile. X păstrează poziţia curentă a caracterului, iar P pozi- 
ţia anterioară, care va fi ștearsă. Simbolul apărind mereu pe ecran, crește impresia de viteză. 
De remarcat că, în aceeași instrucțiune PRINT poate apare de două ori specificația AT pentru 
poziţionare. O altă soluţie constă în scrierea caracterului precedat de spațiu, PRINT AT (5, X) ; 
i gi la 


10 X=1l 40 IF X>29 THEN 10 
20 PRINT AT(5,X); "0"; 50 GO TO 20 
30 X=>+1 
O îmbunătățire adusă programului se referă la utilizarea instrucţiunii FOR pentru ciclare 
10 FOR X=1 TO 29 30 NEXT X 


20 PRINT AT (5,X); “0”; 40 GOTO 10 


Pentru mișcarea unui pătrăţel (1/4 dintr-un caracter), pot fi utilizate similar instrucţiu- 
nile PLOT şi UNPLOT. În programele de mai sus, în poziţia 30 a liniei, va rămine caracterul 
fără a fi şters. Pentru a-l șterge, se introduce (în ultimul exemplu) : 35 PRINT AT (5,30); ” ”; 


Cum puteţi descrie mișcarea simultană a mai multor caractere (figuri) ? 


6. Funcţia STR$ este foarte utilă, dar deseori neglijată. Așa cum s-a arătat, ea este uti- 
lizată pentru conversia unei valori numerice într-un șir de caractere, identic cu cel obținut prin 
tipărirea sa cu PRINT. Încercaţi următorul program : 

10 PRINT 2, STR$S (2) 
20 PRINT 1/3, STRS (1/3) 
30 PRINT 9E15, STR$ (9E15) 


Se observă că, valorile afișate sînt identice. Utilizarea principală a funcţiei STR$ este în 
formatarea rezultatelor afișate. Se vor indica citeva exemple. 
a) Aşezarea punctului zecimal în poziţia dorită. Executaţi programul : 


10 LET A=RND (0)*10000 30 LET A=A*10 
20 PRINT A 40 GO TO 20 
Se obţine următoarea secvenţă ! 
().152587 1525.87 
1.52587 15258.7 
15.2587 152587 
152.587 


Valorile sînt mai ușor de comparat dacă le putem alinia pe verticală la nivelul punctului 
zecimal, astfel: 
0).152587 
1.52587 
15.287 
152.587 
1525.87 
15258.7 
152587 


Instrucţiunile limbajului BASIC 69 


Pentru aceasta se modifică programul de mai sus folosind funcţia STR$. 


5 1=6 30 A=A*10 
19 A=RND (0)*10000 35 I=I+1 
20 N=LEN (STRS (INT (4))) 40 GO TO 20 


22 PRINT AT (1,15—N); A 


Variabila 1 este utilizată pentru a indica linia în care se tipăreşte cu funcţia AT în instruc- 
țiunea 22 PRINTI. 

Expresia LEN (STR$ (INT (A))) calculează lungimea părţii întregi a numărului. Astfel, 
dacă A=15.2587, atunci STR$ (INT (A))="15”, şir cu lungimea 2, deci tipărirea se va începe 
din coloana 15-2=13, încit, toate numerele vor avea punctul în coloana 15 (exceptind cele în 
notație ştiinţifică). Execuţia programului va fi oprită de la tastatură, acționind CTRL. 

b) Tipărirea cu un număr dorit de cifre la partea zecimală. Se vor tipări, de exemplu, 
numerele cu trei cifre după punctul zecimal. 


5 1=6 35 IFM <> N THEN 45 
10 DIM B$ (15) 40 BS (N+1)=%. 

15 A=RND (0)*100 45 PRINT AT (|, 15-C); B$S (TON-+4) 
20 M=LEN (STR$S (4)) 50 A=A*10 

25 N=LEN (STRS (INT (A))) 55 I=I+1 

30 BS (TO)=STR$ (A)+"0000” 60 GO 'TO 20 


Variabila 1 este utilizată în același scop ca la exemplul precedent (indică numărul liniei). 
M conţine lungimea totală a numărului, iar N numărul de cifre al părţii întregi (ca şi în exemplul 
precedent). În variabila B$ se „asamblează“ numărul urmat de eventuale zerouri. Dacă numărui 
este întreg (test realizat în instrucțiunea 35 IF), se adaugă și punctul zecimal (în locul unuia din 
cele patru zerouri). 


c) Economisirea spaţiului de memorie și definirea de funcţii. Deseori este utilă manipu- 
larea numerelor tratate ca șiruri de caractere, în loc de a le prelucra numeric, iar în final, evalua- 
rea lor cu funcţia VAL. Astfel, se pot stoca numerele sub formă de şiruri, cu ajutorul funcției 
STRŞ: 


LET A$=STR$ (1024) 


apoi, se revine la valoarea numerică cu VAL : PRINT VAL (AŞ). 


În acest caz însă, memorarea lui 1024 ca șir în variabila A$, consumă mai multă memorie 
decit păstrarea lui ca număr. Dacă se aplică funcţia VAL unei expresii ca “ATN (X)*4”, varia- 
bila X fiind definită în prealabil, evaluarea va fi corectă, deci, o expresie care poate conţine varia- 
bile, se definește o singură dată în program și poate fi evaluată pentru diverse valori ale varia- 
bilelor, cu ajutorul lui VAL (similar cu instrucțiunea DEFFN din unele versiuni BASIC). De 
exemplu, pentru generarea unui număr aleator între 1 şi 10 se va defini la începutul programului 
şirul : 

A$= “INT (AND (0)*10+1)” 
și de fiecare dată cind se dorește un număr, se va obţine prin utilizarea funcţiei VAL (AŞ), 
N= VAL (AŞ). 


9.4.9. Instrucţiuni de control (transier necondiţionat, condiționat şi 

ciclare) 

În mod normal, execuţia instrucțiunilor unui program este secvenţială. 
"Totuși este necesar uneori repetarea de mai multe ori a execuţiei unor instruc- 
țiuni (fără să fie scrise repetat) sau, în funcţie de valoarea unor date, să nu se 
execute instrucțiunea următoare, ci să se treacă la execuţia alteia, dintr-o 
altă zonă a programului. 

Instrucţiunile care modifică execuţia secvenţială a programului sînt 
instrucţiunile de control. În BASIC ele sînt următoarele : 

— instrucțiunea GOTO, care realizează transferul necondiţionat (inde- 
pendent de date); 
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— instrucțiunile ON şi IF pentru transfer condiționat ; 
— instrucțiunea de ciclare FOR. 


Instrucţiuni de transfer necondiționat. Pentru transferul necondiționat 
se foloseşte instrucțiunea GOTO. 

Format : nr. linie GOTO n 

Execuţia instrucţiunii constă în transferul controlului la instrucţiunea 
cu numărul de linie n. Saltul se poate face la orice instrucțiune din program. 


Exemplu s 
10 LET A=SQR (X12+Y 42) 


50 GOTO 100 
70 GOTO 19 
100 PRINT A 


Instrucţiuni de transfer condiţionat. Pentru realizarea transferului con- 
diționat sînt disponibile două instrucţiuni ; instrucţiunea IE şi instrucțiunea ON. 
Formatul instrucţiunii IE este: 
nr. linie IF expl relaţie exp2 THEN nl 
unde; — expl şi exp2 sînt expresii numerice s2u şiruri 
— nl este un număr de linie, 
— relaţie poate îi: 
egalitate 
mai mare 
mai mic 
mai mare sau egal >= sau => 
mai mic sau egal  <= sau =< 
diterit <> sau >< 
Dacă relaţia dintre expl şi exp2 este adevărată se va trece la instruc- 
țiunea cu numărul de linie nl, dacă nu, execuţia va continua cu instrucţiunea 
care urmează după IF. 


AVI 


Exemplu : i 
100 IE X+Y=SQR (X) THEN 75 

În cazul comparaţiei şirurilor de caractere, ambele expresii trebuie să fie de 
tip şir. Şirurile sînt egale dacă au aceeași lungime şi conțin aceleași caractere. 
Exempiu ? 

Și 10 LET A$="ABG” 

20 IF A$="ABC” THEN 109 

După execuția instrucţiunii 20 se va sări la execuția instrucţiunii 100. 

Un şir se consideră mai mic decit altul, dacă are lungimea mai mică sau, 
în cazul lungimilor egale, dacă în ordonarea lexicografică, primul şir precede 
pe al doilea (cifrele şi semnele speciale preced literele —conform cu codurile 
ASCII). 

Exemplu : "ABC“ este mai mic decit "BCD". 
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Următoarea secvență de program, testează dacă de la consolă s-a acționat 
caracterul ”A”, dacă da se continuă execuţia, dacă nu, tipăreşte caracterul 
citit (sau şirul nul, în cazul cînd nu s-a acționat nici o tastă) şi oprește execuţia 3 

10 LET A$=INKEY$ 
20 IF A$="A”THEN 50 
30 PRINT AŞ 


40 STOP 
poe .. 


Programul următor serie la mijlocul ecranului textul ABC și îl şterge 
la acţionarea alternativă a unor taste: 
10 IF INKEY$=” “THEN 16 
20 PRINT AT (16, 15) “ABG” 
30 IF INKEY$=" ” THEN 39 
40 PRINT AT (16,15)%  “”* 
50 GOTO 19 


Formatul instrucţiunii ON este: 


nr. linie ON expresie GOTO listă 
sau 
nr. linie ON expresie GOSUB listă 


unde listă reprezintă un şir de numere de linie. 

Fie N partea întreagă a valorii expresiei speci ficate în instrucțiunea ON, 
Execuţia instrucţiunii constă în saltul la instrucțiunea cu al N-lea număr de 
linie din listă. În cazul lui ON-GOSUB, fiecare număr de linie, din listă reprezintă 
startul unei subrutine din program. Dacă N nu se încadrează între : 


ISEN= mărul de elemente din listă, 
atunci execuţi ccutinuă cu instrucțiunea care urmează după ON. 
Exemple : 
10 ON M-5 GOTO 109, 500, 90, 75, 550 


M-5 trebuie să aibă o valoare între 1 și 5 altfel, instrucțiunea nu are 
nici un efect. 


20 ON X GOSUB 1009, 2000, 3009 


În funcţie de valoarea lui X se execută una din cele trei subrutine care 
încep la liniile 1000, 2009 sau 3000. 


Instrucţiuni de cielare. Instrucţiunile de ciclare sint folosite pentru exe- 
cuţia repetată a unor instrucţiuni din program (numite cicluri sau bucle în 
program). 

Pentru acest lucru se puteau utiliza instrucțiunile de transfer. Introdu- 
cerea unor instrucţiuni speciale de ciclare s-a făcut în scopul simplificării 
muncii programatorului. 

În BASIC, pentru realizarea ciclurilor, se utilizează instrucțiunile FOR 
şi NEXT. 
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Formatul instrucțiunilor : 


nr. linie FOR variabilă=expl TO exp2 STEP exp3 
(instrucțiuni ce formează bucla) 
nr. linie NEXT variabilă 
unde;  — variabilă reprezintă o variabilă simplă care este folosită pentru 
controlul numărului de repetări ale buclei. Bucla constă din instruc- 
țiunile care se găsesc între instrucțiunea FOR și instrucţiunea 
NEXT, cu aceeași variabilă. 
— expl, exp2 şi exp3 sînt expresii. 
Semnificaţia acestor expresii este următoarea : 
expl — este valoarea inițială care se atribuie variabilei din instrucțiunea FOR, 
exp2 — este valoarea finală a variabilei, 
exp3 — este incrementul (pasul) care se adună la valoarea variabilei FOR, de 
fiecare dată, cînd se execută instrucțiunile din buclă. 
Observaţie : 
Este posibil ca exp3 să nu se specifice, instrucțiunea FOR avînd forma : 
nr. linie FOR variabilă = expl TO exp2 
În acest caz valoarea pasului (exp3) se consideră 1. Bucla se execută 
atita timp cît valoarea variabilei FOR este mai mică sau egală cu exp2. 
Execuţia instrucţiunii NEXT constă în adunarea valorii pasului (exp3) 
la valoarea variabilei FOR și testul dacă noua valoare a variabilei nu depă- 
şeşte valoarea limită (exp2). Dacă valoarea limită este depăşită execuția buclei 
ia sfîrșit, următoarea instrucțiune executată fiind cea de după NEXT. 


În interiorul unei bucle FOR pot exista alte bucle cu condiţia ca buclele 
să nu se intersecteze. 


Exemplu” corect Exemplu incorect 
10 FOR X= 10 FOR X= 
50 FOR Y= 70 FOR Y= 
100 FOR Z= 120 NEXT X 
DAS 300 NEXT Y 
170 NEXT Z 
200 NEXT Y 
700 NEXT X 


Sint permise maximum trei bucle FOR incluse una în alta. 


Rxemplu ! 


109 FOR 1=1 TO3 

120 FOR J=1 TO 20 STEP 1 
130 READ B (1, J) 

140 NEXT J 

150 NEXT 1 


Instrucţiunea 130 READ se va executa de 20x3=60 de ori. 
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9.4.10. Exerciţii 
1. Programul următor afişează setul complet de caractere. 


10 FOR N=60 TO 127 30 NEXT N 
20 PRINT CHR$ (N) 40 STOP 


Să se modifice programul, utilizînd funcţia AT în PRINT și afişind numai cifre, pentru 
a se obține un ceas electronic. (Temporizarea se poate realiza cu un ciclu FOR). 


* 2. Pentru calculul sumei a N numere reale se poate utiliza programul : 


Ă10 PRINT "N="; 35 S=S+A 

15 INPUT N 40 C=C-+1 

20 C=1 50 IF C<=N THEN 30 
25 S=0 60 PRINT S 

30 INPUT A 


Să se descrie același algoritm de calcul folosind instrucţiunile de ciclare FOR/NEXT cu 
variabila contor C. 


3. Următorul program afișează numărul cu valoarea maximă dintr-un șir de 5 numere 
introduse : 


10 INPUT M 50 M=A 
20 FOR 1=2 T0 5 60 NEXT 1 
30 INPUT A 70 PRINT “MAXIMUL="; M 


40 IF M>=A THEN 60 


„Programul poate fi utilizat pentru aflarea maximului dintr-un șir de 10 sau 100 de valori 
dacă modificăm limita 5 din instrucțiunea 20FOR. Ce trebuie modificat în program pentru a 
calcula minimul. 


4. Să se modifice programul de calcul al sumei (din exerciţiul 2) astfel încît să calculeze 
produsul numerelor nenule din cele N numere (pentru simplificare se va folosi ciclul FOR/NEXT). 


5, Pentru calculul factorialului dintr-un număr natural dat poate fi utilizat programul + 


10 PRINT “INTRODUCETI N="; 40 P=P*l 
20 INPUT N 50 NEXT 1 
25 P=1 60 PRINT "NI=";P 


30 FOR I1=2T0 N 
Să se găsească o altă soluţie pentru această problemă. 
6, Executaţi programul : 


10 FOR N=10 TO 1 STEP-1) 
20 PRINT N 
30 NEXT N 


Transformaţi acest program în unul ce nu conţine ciclul FOR-NEXT (procedind invers 
exercițial 2). 


7, Fie dat un vector A de zece elemente. Programul de mai jos, erdonează crescător ele- 
mentele acestui veetor, deci, în final va fi satisfăcută relaţia A(1)sA(2)s :::sA(10). 


19 FOR 1=1 TO 19 

15 READ A (1) 

20 NEXT 1 

25 FOR 1=1 TO 9 

30 FOR J=>1 TO 19—1 
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40 IE A U)<=A +1) THEN 70 60 A (I+1)=T 
50 T=A 0) 70 NEXT J 
55 A (I)=A (U+1) 80 NEXT 1 
85 REM “AFISAREA REZULTATU- 


LUI” 
99 FOR I=1 TO 19 
109 PRINT A (1). 
110 NEXT 1 
120 END 


De remarcat că, aceeași variabilă I poate apare în mai multe cicluri FOR-NEXT, fără 
conflict, dacă ciclurile respective nu se intersectează (nu au instrucțiuni comune). De ce a fost 
necesară utilizarea variabilei T în instrucţiunile 50 și 60?. 


Cum poate fi accelerat acest algoritm ? Să se indice un alt algoritm (program) pentru 
această problemă ? Ciclurile (10—20) pentru citire și (90—110) pentru tipărire pot îi inlocuite 
prin cîte o singură instrucțiune matriceală (vezi capitolul : instrucțiuni de calcul cu matriei). 
Să se modifice programul astfel încît să ordoneze un vector A cu N elemente, 2sNs234. 


8. Similar cu exerciţiul 7, se prezintă un program ce ordonează crescător (sortează alfa- 
betic) o listă de nume, care sînt depuse într-o matrice de șiruri de caractere. Programul se deose- 
beşte de cel precedent prin faptul că utilizează instrucțiuni IF pentru ciclare, iar ordonarea se 
face descrescător, însă, afișarea făcîndu-se începînd cu ultimul șir către primul (maxim), rezul- 
tatele vor fi afișate în ordine alfabetică (crescătoare). 


10 REM “SORTARE ALFABETICĂ” 120 IF WS$S(B)>WS(Z) THEN 15 


20 DIM W$ (5, 10) 130 Z=Z+1 

30 LET B=9 140 GOTO 199 

40 LET G=5 150 Q5=Ws (7) 

50 FOR A=1 TO 5 160 WS (Z)=Ws (B) 

60 INPUT W$ (A) 170 WS (B)=0Q$ 

70 PRINT W$ (A) 180 GOTO 130 

39 NEXT A 190 PRINF W$ (G) 

85; PRINT 200 G=G—1 

99 LET Z=1 210 IF G>0 THEN 904 
190 B=Z+1 220 END 


110 IF B>G THEN 196 


Programul folosește tabloul W5 (5, 10) pentru păstrarea a 5 şiruri de maximum 16 carac- 
tere fiecare. Pentru extinderea la un număr mai mare de șiruri, trebuie modificate instrucțiunile i 
20 DIM, 40 LET și 50 FOR, scriindu-se în locul cifrei 5 un număr dorit (maximum 254). 
Se observă că, afișarea rezultatelor se face rînd pe rînd, imediat după obţinerea, pe ultima pozi- 
ție în W$, a șirului mai mic. Cum poate fi modificat programul pentru a afișa rezultatul, din 
W$ (5, 10), după ordonarea sa integrală (ca în exerciţiul precedent) ?, 


9.4.11. Utifizarea subrutinelor. Cînd este necesară efectuarea de mai multe 
ori Într-un program a aceloraşi calcule (instrucțiuni) pentru date eventual dife- 
rite, se poate folosi conceptul de subrutină. Utilizarea subrutinelor conduce 
la o diminuare a dimensiunii programului, deoarece prelucrările se descriu o 
singură Jdată (în cadrul subrutinei) şi pot fi executate de cîte ori este nevoie, 
prin apelarea subrutinei, eventual cu alte date. Folosirea funcţiilor (SIN, COS, 
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LOG, GET, PUT etc.) în alcătuirea expresiilor, constituie un exemplu în acest 
sens, deoarece funcţiile sînt definite o singură dată, în interpretor, și sînt 
apelate cu diferite argumente de către programator. 


Pentru definirea unor subrutine mai puternice (ce descriu prelucrări 
complexe asupra datelor), în limbajul BASIC sînt disponibile instrucţiunile 
GOSUB, RETURN şi CALL care vor fi descrise în continuare. 


Instrucţiunile GOSUB şi RETURN. Aceste instrucțiuni permit utilizarea 
subrutinelor în BASIC. 


Atunci cînd o succesiune dată de instrucțiuni, apare de mai multe ori 
într-un program, în locuri diferite, ea poate îi serisă ca subrutină. 


GOSUB 
Format : 
nr. linie GOSUB nl 
Execuţia instrucţiunii constă în transterul controlului la instrucțiunea 
cu numărul nl. 
Instrucţiunea nl poate îi oricare dintre instrucțiunile ce alcătuiesc o 
subrutină (în general prima). 
RETURN 
Format : 
nr. linie RETURN 
Execuția instrucţiunii constă în transferul controlului la instrucțiunea 
ce urmează după instrucțiunea GOSUB, care a apelat subrutina. 


J xemplu ; 
190 LET X=5 500 Y=3*xX 
119 GOSUB 509 510 LET Z=1.2*EXP (Y) 
120 X=7 520 LET Y=SQR (2+2) 
139 GOSUB 500 530 IF Y<100 THEN 550 
140 X=u 540 RETURN 
150 GOSUB 500 550 PRINT X, Y 
160 STOP 560 RETURN 


Variabilele în BASIC sînt globale, deci cele utilizate într-o subrutină 
pot fi apelate şi în altă parte a programului. 

Apelarea subrutinelor serise în limbaj maşină. Pentru a apela, dintr-un 
program scris în limbaj BASIC, subrutine scrise în limbaj maşină, se utilizează 
instrucțiunea CALI 


Formatul instrucţiunii este următorul : 
nr. linie CALI (M, P1, P2, ..., PN) 


unde : 
— M este numărul subrutinei (de la 0 la 254) 


— P1,... PN sînt parametrii (constante, variabile sau expresii). 
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Legătura dintre numărul subrutinei şi 
adresa din memorie, unde se află subrutina, 
Monitor se stabilește prin intermediul unei tabele 
Meier care se află la o adresă prestabilită 
Interpretor ile! (fig. 9.1, harta ocupării memoriei). O 
BASIC intrare în tabelă conţine trei octeți. În primul 
octet se află numărul rutinei iar în următorii 
doi adresa. Sfirșitul tabelei este detectat prin 
întîlnirea unei intrări cu numărul 255. În 
cazul cînd nu se folosesc subrutine în limbaj 
Variabila Memorie mașină, apelate dintr-un program BASIC, 
BASIC RAW tabela se reduce la un singur octet cu valoa- 
? rea 255. În acest caz, iniţializarea tabelei 
(octetului) se face automat, de către inter- 
pretorul BASIC, la lansarea sa în execuție, 
prin comenzile B sau G0800 (vezi paragra- 
ful 9.3.1), 

- "Transferul parametrilor se asigură prin 

Fig. 9.1. Harta ocupării me- referinţă. Adresele parametrilor (pe doi octeți) 

Ppal, sînt depuse în stivă, indicată de registrul SP, 

în ordinea: adresă de întoarcere în programul BASIC, adresa PI, adresa 
P2, ...+„ "adresa PN: 

Deci subrutinele în limbaj maşină, în cazul în care folosesc parametrii 
(primesc şi/sau returnează), vor trebui să facă uz de instrucțiuni POP, pentru 
obținerea adreselor parametrilor şi să se termine cu instrucțiunea RET. 

Observaţii : 

1. Subrutinele în limbaj mașină trebuie să descarce din stivă adresele 
tuturor parametrilor înainte de terminare (RET), pentru ca adresa luată din 
stivă, la execuţia instrucţiunii RET, să fie cea depusă de interpretor. Inter- 
pretorul nu face nici un control în acest sens. 

2. Parametrii au valori reale, reprezentate pe patru octeți în formatul 
cu virgulă mobilă. Îa subrutina scrisă în limbaj mașină, trebuie să se țină 
seama de această reprezentare, pentru ca prelucrarea să fie corectă. 

3. În cazul cînd parametrii sînt nume de tablou (vector saufmatrice) ele- 
mentele tabloului sînt depuse în memorie liniar, pe coloane (în cazul matricilor), 
fiecare element ocupînd patru octeți. La subrutină se transmite adresa primului 
element de pe prima coloană. Știind acest lucru, se poate avea acces în cadrul 
subrutinei la oricare element al tabloului. 

4. Parametrii variabile simple, nedefinite în prealabil (care vor primi 
valori rezultate din subrutină), nu trebuie să fie intercalați cu parametrii 
expresii. 

Exemplu : 

În continuare se arată cum trebuie actualizat indicatorul la memoria 
disponibilă (IMD)* și definită tabela de legături, pentru utilizarea a trei sub- 
rutine cu numerele 1,2 şi 4. 


* IMD este iniţializat cu valoarea 6800H, deci indiferent dacă se utilizează subrutine, 
se rezervă o zonă de 1Ke (400H) pentru subrutine. 
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ORG 635EH adresa lui IMD * 


IMD ; DW MDISP ; actualizare IMD 

TSUB : DB 1 ; intrare pentru 
DW SUB1 ; subrutina nr. 1 
DB 2 
DW SUB2 ; adresa subrutinei 2 
DB 4 ; intrare pentru 
DW SUB3 ; subrutina nr. 4 
DB 255 ; sfîrşit tabelă 

SUBI : . ; cod pentru 

; subrutina nr. 1 

RET 

SUB2 : . ; cod pentru 
. ; subrutina nr. 2 
RET 

SUB3 : . ; cod pentru 
. ; subrutina nr. 4 
RET 

MDISP EQU ş ; început memorie 
END ; disponibilă 


Codul rezultat în urma asamblării programului de mai sus, scris în limbaj 
de asamblare, va trebui să fie introdus la adresa specificată, cu ajutorul comen- 
zilor MONITOR, înainte de lansarea în execuţie a interpretorului BASIC. 
După introducerea subrutinelor în limbaj maşină interpretorul BASIC se lan- 
sează în execuție cu comanda G03815 (pentru a nu se face iniţializarea impli- 
cită a lui IMD, ca în cazul absenței subrutinelor). 


9.4.12. Exereiţii 


1. Unele aplicaţii necesită accesul la memoria calculatorului pentru scrierea sau citirea 
valorii unui octet de la o anumită adresă. După cum se știe unitatea de memorie adresabilă este 
octetul, iar procesorul poate adresa 65536 octeți (64 Ko). Pentru realizarea acestor funcţii, unele 
versuri ale limbajului BASIC conţin instrucţiuni speciale, de exemplu : PEEK A — funcţie a 
cărei valoare este conţinutul octetului de la adresa A, cu DsAs65535 ; iar POKE A, V este o 
instrucțiune ce înscrie în octetul de la adresa A valoarea V, cu 0sVs255. Se vor simula aceste 
două instrucţiuni utilizînd două subrutine în limbaj de asamblare apelate cu CALL din BASIC. 
Astfel, pentru PEEK A, se definește subrutina numărul 1, cu parametrii A și B; A va conține 
adresa iar în B se va depune valoarea octetului de la adresa A. Pentru POKE A, V se defineşte 
a doua subrutină cu parametrii A și V care va înscrie la adresa A valoarea V (0sV<255). 

Subrutinele se vor apela, dintr-un program scris în BASIC, prin CALL (1, A, B) pentru 
PEEK A şi CALL (O, A, V) pentru POKE A, V. 

Subrutinele în limbaj de asamblare sînt precedate de tabela de legătură : 


ORG 635EH ; adresa IMD 
IMD : DW SFSUB ; actualizare IMD 
DB 1 ; tabela de legătură 
DW PEEK ; adresa subrutinei PEEK 
DB 2 ; intrare pentru a 
DW POKE ; 2-a subrutină 
DB 255 ; sfîrșitul tabelei 
PEEK : POP B ; în reg. B, C adresa celui 


; de-al 2-lea parametru 


* În cazul cind subrutinele nu depășesc 1Ko, se poate lăsa valoarea implicită pentru 
IMD (6800H), începindu-se cu ORG 6499H și definirea tabelei TSUB 
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POP D ; în D, E adresa variabilei 
; A (primul parametru) 
PUSH B ; salvare reg. B, C 
CALL ADRDE  ; în reg. D, E adresa de la care citim 
POP B ; în reg, B, C adresa la care depunem 


; valoarea citită 


3 valoarea va trebui memorată în formatul cu virgulă mobilă 


LDAX D ; în reg. A octetul citit 
MVI L, 8 ; normalizare 
NORM : ORA A 
JZ NULFL  ; valoarea este zero 
IM GATA 
RAL 
DCR ÎI 
IMP NORM 
NULFL ! MVI L, 40 ; exponentul lui zero 
GATA: STAX B ; scrierea rezultatulu: în 
INX B ; virgulă mobilă 
XRA A 
STAX B 
INX B 
STAX B 
MOY AL ; exponentul 
INK B 
STAX B 
RET 
POKE: ; subrutină care scrie valoarea celui de-al 


; doilea parametru la adresa dată de primul 


POP B ; în B, C adresa valorii 
LDAX B ; conversie în întreg 
ORA A 

IZ CONT 

MOV D, A ; salvare în reg. D 
INX B 

INX B 

INX B 

LDARX B ; citire exponent 
ANI OFH 

MOV E, A 

MOV A, D 

RLC 

DCR E 

INZ $—-2 


ș în reg. A se află valoarea 0sVs255, convertită în întreg 


POP D ; adresa primului parametru 
MOV B, A ; salvare valoare 

CALL ADRDE 

MOV A, B ; depunerea valorii la 
STAX D ; adresa din reg. D, E 
RET 


ADRDE : ; subrutină ce primeşte în 
; D, E adresa unui număr în 
; virgulă mobilă și întoarce în 


; D, E valoarea sa (ca număr întreg) 


LDAX D ; în reg. A primul octet al 
ORA A ; mantisei. Este 0? 
E LA ZERO ; numărul este zero 
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MOV 
INX 
LDAX 
MOV 


ro Dă 
> 


> 


; în (H, L) primii 2 octeți ai 
; numărului 

INX 
INX 
LDAX 
ANI 
MOV 
LXI 

CONV': DAD 
XCHG 
ADC 
DCR 
XCHG 
RZ 
IMP CONV 

ZERO : LXI D, 0 
RET 

SFSUB EQU $ 
END 


Codul obiect rezultat în urma asamblării subrutinelor, se va depune în memoria calcu- 
latorului (cu comanda Substitute (S) a monitorului). Apoi, se lansează în execuţie interpreto- 
ral BASIC, cu comanda G0800. În continuare, se poate introduce un program BASIC care uti- 
jizează subrutineie în limbaj mașină : 


10 PRINT “INTRODUCETI ADRESA A=''; 
20 INPUT A 

25 PRINT “INTRODUCETI VALOAREA V="; 
30 INPUT V 

40 REM “ÎN OCTETUL DE LA ADRESA A 
45 REM ''VOM DEPUNE VALOAREA V” 

50 CALL , A, V) 

60 REM "PENTRU TEST VOM CITI” 

65 REM ''VALOAREA SCRISA SI O VOM AFIȘA” 
70 CALL (1, A, C) 

80 PRINT C 

99 GOTO 19 


în reg. A exponentul 

se păstrează ultimii 

5 biţi, salvare în reg. C 
D, E=0 


IPOADUD 
s>E 


ari 
la 
asi 
ai 


; HL=HL+HL+CY (780) 


Programul următor realizează aceeaşi iuncţie ca și comanda Fill a moni- 
torului 


10 INPUT A1, A2, V 

20 FOR A=Al1 TO A2 

30 CALL (2, A, V) 

40 NEXT A 

50 END 

Pentru ca programele să funcţioneze corect, trebuie ca adresele introduse 

să rorespundă zonei de memorie R/W şi să nu altereze programul BASIC (să 
nu se autodistrugă). 


În cazul utilizării subrutinelor în limbaj mașină, comanda de ștergere a 
programului : SCR, va şterge şi subrutinele în limbaj mașină. Pentruja nu intro- 
duce din nou subrutinele mașină de la tastatură, ele pot fi salvate pe casetă, cu 
comanda SAVE, imediat după ce au fost introduse și s-a intrat în BASIC. În 
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acest caz, ele vor putea fi încărcate de pe casetă cu comanda I-OAD înainte de 
introducerea unui program BASIC, de la tastatură, care le utilizează. 

2. Calculatorul dispune de un difuzor care este utilizat ca „martor sonor“ 
la apăsarea unei taste. Dacă se asociază tastelor sunete corespunzătoare notelor 
muzicale, se va transforma calculatorul într-un instrument muzical. 

Dituzorul este conectat prin portul de ieşire 22H (34 zecimal) pe bitul 3. 
Pentru a obţine frecvenţa unei note dorite, se va transmite pe acest port şiruri 
de 1 și () de durate corespunzătoare. Pentru a se transmite o valoare pe un port 
de ieșire poate fi utilizată funcţia PUT (nr. port) din BASIC, de exemplu : 

10 PUT (34)=0 
20 PUT (34)=8 (1 în bitul 3) 
30 GOTO 19 

Pentru a obține frecvențe mai mari, trebuie să se utilizeze o subrutină 
în limbaj de asamblare. Astfel, se va defini o subrutină în limbaj de asamblare 
care va primi ca parametrii : frecvenţa notei dorite și durata și va genera un 
sunet corespunzător. Subrutina se va apela cu instrucțiunea CALL (1, F, D), 
după ce, în F s-a încărcat frecvenţa iar în variabila D durata. Valorile lui E şi D 
depind de modul în care s-a scris subrutina de generare și de frecvența impulsu- 
rilor de ceas ale calculatorului. 


Se va folosi următoarea subrutină în limbaj mașină : 


ORG 635EH 


DW MDISP ; adresa memoriei libere 
DB 1 ; Tabela de legătură 
DW SUNET  ; adresa subrutinei 
DB 255 ; sfîrșitul tabelei 
SUNET : POP H ; adresa celui de al doilea parametru (P2) 
CALL CVINT ; conversie în întreg 
MOV E, A ; valoarea P2 (durata) o păstrăm în reg. A 
POP H ; adresa P1 (frecvenţa) 
CALL CV INT ; conversie în întreg 
MOV B, A ; salvare P1 în reg. B 
LOOP1 MOV D, B ; în D frecvența 
LOOP2 : MVI A, 8 ; transmite 1 pe bitul 3 
OUT 22H ; al portului 22H 
DCR D 
INZ LOOP2 
MOV D, B ; în D frecvența 
LOOP3 : NRA A ; transmite ( pe bitul 3 
OUT 22H ; al portului 22H 
DCR D 
INZ LOOP3 
DCR E ; decrementează durata 
INZ LOOP1 
RET 
CVINT : ; subrutină ce primește în reg. H, L adresa unui număr reprezentat 


; în formatul virgulă mobilă pe 4 octeți și întoarce 
; valoarea sa (întreagă) în reg. A (se presupune că valoarea 
; numărului este cuprinsă între și 255). 


MOV AM ; primul octet al numărului 
ORA A ; este 0? 

RZ 

MOV D, A ; salvarea primului octet 
INX H ; în reg. D 
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; exponentul 
; păstrează ultimii 4 biţi 


; conversie în întreg 
; (aliniere la dreapta) 


> 
Z 
_ 

O PPR>II 
o>Iz 


ca 
Z 
N 
La) 
| 
IS) 


EDISP 1 EQU 


4 


După introducerea codului subrutinei cu comanda Substitute a Monitora- 
lui, se va lansa în execuţie interpretorul BASIC cu comanda G0800. Subrutina 
se va apela, aşa cum s-a arătat, cu instrucțiunea CALI. din BASIC (de exemplu 
GALL (1, F, D)). 


23 24 22 2) 20 = N 18 


LA) 43 40 = lic FĂ Ş2: 20) 23 27 
Fig. 9.2. Parametrii de frecvenţă ai notelor. 


Pentru a obține (genera) notele dorite, parametrul de frecvenţă F, va avea 
valorile din figura 9.2. Programul următor asociază tastelor numerice 1, 2, 3, 4 
notele Do, Re, Mi, Fa. 


5 D=50 30 F=51 
7 F=51 35 RETURN 
10 AS=INKEY$ 40 F=45 
15 IF A$=”' "THEN 25 45 RETURN 
20) ON VAL (AS) GOSUB 30, 40, 50, 60 50 F=40 
25 CALL (1, F, D) 55 RETURN 
27 GOTO 10 60 F=38 

70 RETURN 


O notă va dura pînă la acţionarea unei taste (1—4), corespunzătoare 
altei note. 
Încercaţi să extindeți programul, încît să asociaţi și celelalte note unor 
taste. 
Programul următor generează note folosind generatorul de numere alea- 
toare pentru frecvenţă şi durată : 
10 CALL (1, INT (AND (0)*90-+10), INT (RND (0)*50+5)) 
20 GO TO 10 
Generarea de note cu frecvențe din ce în ce mai mari se poate realiza en 
programul : 
10 FOR 1=100 TO 10 STEP-1 
20 CALL (1, 1, 50) 
30 NEXT I 
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Observaţie : Ștergerea programelor de mai sus, în vederea introducerii 
altora ce utilizează subrutina în limbaj de asamblare, nu se poate face cu SCR 
pentru că se va şterge și subrutina. Pentru a nu șterge programele linie cu linie, 
se va ieși de sub controlul interpretorului BASIC acţionînd RESET, intrind sub 
controlul Monitorului, iar apoi se va reintra în BASIC cu comanda G0815. 
Astfel, subrutina în limbaj mașină va rămîne și se va şterge doar programul 
BASIC. 

3. Se va utiliza o subrutină în limbaj maşină ce permite generarea de 
sunete de durată mai mare, folosindu-se pentru durată un contor pe doi octeți. 
Subrutina va primi tot doi parametrii, primul reprezentînd frecvenţa iar cel 
de-al doilea durata. 


ORG 635EH 


DW MD ISP ; adresa memoriei disponibile 
DB 1 ; programului în limbaj BASIC 
DW NOTA ; adresa subrutinei 
DB 255 

NOTA: POP H adresa parametrului 2 


CALL CVINT 
MOV E, A 


(durata) 
durata în reg. E 


POP H adresa primului parametru 
MOV B, A în B frecvenţa 
MAR: CALL sg 
DCR E ; decrementare contor 
INZ IAR 
RET 
sp: LXI H,35FFH 
Sl: MOV D, B ; în D frecvența 
MVI A, 8 ;1 în bitul 3 
OUT 22H 
s2: DCX H ; buclă în care se 
MOV AH ; generează 1 pe durata 
ANA A ; dată de reg. D. 
RZ 
DCR D 
INZ s2 
MOV D, B 
MVI A, O ;: 0 în bitul 3 
OUT 22H 
s3: DCX H ; buclă în care 
MOV A, II ; se generează 
ANA A ; pe durata dată de 
RZ 
DCR D ; reg. D 
INZ S3 
IMP S1 


Subrutina CVINT este identică cu cea din exemplul precedent. 

Programul următor va apela subrutina în limbaj de asamblare descrisă 
mai sus pentru interpretarea unei melodii. Frecvenţele şi duratele sînt date în 
instrucțiuni DATA, fiind citite cu instrucțiunea READ. 


106 READ A, B 
29 CALL (1, A, B) 
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30 GO TO 19 
190 DATA 51 3, 45, 1, 40, 3, 51, 1, 40,2 
110 DATA 51, 2, 40, 4, 45, 3, 40, 1, 38, 2, 40,1 
120 DATA 45, 1, 3,8, 
130 DATA 49, 1, 34,2, 
140 DATA 34, 1, 30, 2, 
150 DATA 51, 1, 45, 1, 40, 

3, 

1, 

i 

2, 


Www 
fi rile 
D= 
5: - 

Wu 
02 99 


160 DATA 30, 8, 30, 
170 DATA 34, 1, 30, 
180 DATA 38, 1, 34, 
190 DATA 27, 1, 30, 
200 END 


DBA 
NNSE 
Dap 
re 
5 


IC) 
5 


Execuţia programului se va termina prin apariţia erorii 21, deoarece au 
fost epuizate toate constantele din instrucţiunile DATA. Modificaţi programul 
utilizînd instrucțiunea RESTORE, reluînd interpretarea” melodiei. 


9.4.13. Instrucţiuni de caleul cu matrice. Cu toate că instrucțiunile deja 
prezentate permit efectuarea de prelucrări asupra tablourilor, prin utilizarea 
variabilelor indexate (cu unul sau doi indici), limbajul BASIC conţine un set 
de instrucțiuni care permit prelucrarea tablourilor (cu una sau două dimensiuni) 
fără referiri la fiecare element al tabloului. În acest sens sînt disponibile urmă- 
toarele instrucțiuni : 


MAT READ A, B, ... Citește datele din instrucțiuni DATA pentru 
MAT READ A (3, 4), B (10) tablourile A, B dimensionate în prealabil 
sau în instrucţiune. 


Observaţie : Datorită prefixului MAT, utilizat în instrucţiuni, tablourile vor fi numite matrice 
(indiferent dacă au una sau două dimensiuni). 


MAT INPUT A,B, --: Citește datele pentru matricile A, B de la con- 
MAT INPUT A (2,4), B(3,3),--: solă. 
Datele introduse sînt memorate linie cu linie, în matrice. 
MAT PRINT A, B, -:: 
MAT PRINT A (4,4), B(3,2), --: Tipăreşte linie cu linie valorile curente ale matrici- 
lor A, B dimensionate în prealabil sau redimensionate 
în instrucțiune. 


MAT A=B Matricea A primește dimensiunile lui B şi apoi B este 
copiat în A. 

MAT A=B+C Adună sau scade matricile B și C. Matricile B și C tre- 

MAT A=B—C buie să aibă aceleași dimensiuni. Matricea A are dimen- 
siunile matricii rezultat. 

MAT A=B*C Înmulțește matricile B și C și depune rezultatul în 


matricea A, care va primi dimensiunile rezultatului. 
Dimensiunile matricilor B și C trebuie să fie compati- 
bile (produs de matrici). 

MAT A=(expresie)*B Realizează produsul matricei B cu un scalar egal cu 
valoarea expresiei dintre paranteze. Rezultatul pro- 
dusului este depus în matricea A, care este dimensio- 
nată corespunzător. 

MAT A=INY (B) Inversează matricea pătrată B,. 

MAT A=INV (B),D Inversa este memorată în matricea A care va avea 
dimensiunea lui B. Valoarea determinantului va fi 
atribuită variabilei D. 

MAT A=TRN (B) Calculează transpusa matricei B și depune valoarea 
în matricea A, care va avea dimensiunile matricei 
rezultat. Tablourile A și B trebuie să fie distincte. 
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Ey: = = 

MAT A=ZER Atribuie tuturor elementelor matricei A valoarea zero. 
MAT A=ZER (3, 4) Matricea A poate fi redimensionată conform speci- 
MAT A=ZER (7) ficaţiilor din instrucţiune. 

MAT A=CON Atribuie tuturor elementelor matricei A valoarea 1. 
MAT A=CON (3, 10) Matricea A poate fi redimensionată conform speci- 
MAT A=CON (8) ficaţiilor din instrucţiune. 

MAT A=IDN Atribuie elementelor diagonalei principale valoarea 1, 
MAT A=IDN (2,5) celorlalte elemente li se atribuie valoarea zero. Dacă A 
MAT A=IDN (7) este matrice pătrată ea va deveni matrice unitate. 


Observaţie : 

Instrucţiunile matriciale pot fi împărţite în două categorii : 

— instrucţiuni de intrare/ieşire 
MAT READ 
MAT INPUT 
MAT PRINT 

— instrucțiuni de atribuire — în care matricei din membrul stîng i se 

atribuie rezultatul unei operaţii matriciale. 

Matricile introduse prin instrucţiunile de intrare/ieşire sau matricea din 
membrul stîng al unei instrucţiuni de atribuire, pot îi alocate la execuția instruc- 
țiunii MAT respective, nefiind necesară declararea lor în instrucțiunea DIM. 
În cazul în care matricile au fost declarate în prealabil, într-o instrucţiune DIM, 
sau au fost introduse printr-o instrucțiune MAT anterioară, ele pot fi redimensio- 
nate cu respectarea condiţiilor : 

— numărul de dimensiuni ale tabloului să fie păstrat (un vector nu poate 
deveni matrice şi nici invers), 
— numărul de elemente al matricei redimensionate trebuie să nu depă- 
șească numărul de elemente al matricei iniţiale. 
Dimensiunile specificate în instrucțiunile mariciale pot fi constante, 
variabile sau expresii. 
Exemplu : 


MAT READ A (M+N, N+1),B 

Citirea matricelor. Citirea matricelor se realizează cu instruețiunile a 
MAT READ şi MAT INPUT. 
20 MAT READ B(9,3),A (3) 


30 DATA 5, 11, —17, 1,2, 3, 1E7,0,1 
După execuţia instrucţiunii 20 matricile A şi B vor conține : 
B(1,1)=5; B(1,2)=11; B(1,3)=—17 


B(Q,1)=1; B(2,2)=2; B(2,3)=3 
A(D=10; A 0)=0; A)=L. 


Matricile A şi B puteau fi declarate şi în instrucțiunea DIM caz în care, 


în instrucțiunea 20, nu mai trebuiau specificate dimensiunile 


10 DIM A (3), B(2,3) 
20 MAT READ B, A 
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Aceleași observaţii sînt valabile şi pentru instrucțiunea MAT INPUT. 
În acest caz, datele sînt citite de la consolă (tastatură) 


10 DIM A (10), B(3,3) 
20 MAT INPUT A (3), B(2,3) 


[ Matricile A, B vor fi alocate la execuţia instrucţiunii DIM. Instrucţiunea 
MAT INPUT va redimensiona matricile A şi B şi apoi va citi de la consolă valo- 
rile elementelor (pe linii). 

Se observă că redimensionarea satisface cele două cerinţe : 

— păstrarea tipului (vector sau matrice), 

— noul număr de elemente este mai mic decit cel alocat iniţial. 
Observ aţie : Instrucţiunea 10 DIM nu era absolut necesară, matricile puteau fi 
alocate în instrucțiunea MAT INPUT. 


Tipărirea matricelor. Pentru tipărirea matricelor se utilizează instrucțiunea 
MAT PRINT. Matricile se tipăresc linie cu linie. În cadrul unei linii, spaţierea 
intre elemente se face conform separatorului utilizat în lista de matrici din MAT 
PRINT (separatori pot îi „,“* sau „;"). După tipărirea unei linii a matricei se 
iasă o linie liberă, pentru ca liniile să apară mai clar. Dacă lista din MAT PRINT 
conține mai multe matrici, între liniile unei matrici şi ale următoarei din listă, 
se lasă două linii libere. 

[10 DIM A (3,2) 

20 MAT READ A, B (3) 

30 MAT PRINT A, B 

40 DATA 1,2, 3, 4,5, 6,78, 9 
( 50 ENDi: E [Ei 


Instrucţiunea! MAT READ va citi tablourile A și B. 


La execuția instrucţiunii 30 se vor tipări următoarele valori la consolă 
(display) : 


Ei 


2 
4 ; Matricea A (3, 2) 
6 

; Vectorul B (3) va fi tipărit ca 

; matrice coloană B (3, 1) 


opun tom 


Elementele matricei A pot fi tipărite comasat, dacă se foloseşte separa- 
torul „;“. În acest caz, instrucțiunea 30) va fi: 


[30 MAT, PRINT[A ; B! 
FB va îi tipărit la îel ca mai sus. [i 


În cazul cînd în MAT PRINT, se specifică dimensiuni pentru un tablou 
din listă, tabloul va fi mai întîi redimensionat și apoi tipărit cu noile dimensiuni. 


De exemplu, dacă instrucţiunea 30 de mai sus ar fi fost: 
30 MAT PRINT A (2, 2), B(2) 
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atunci s-ar fi tipărit: 


1 5 ; matricea A (2, 2) 
3 2 

7 ; vectorul B (2) 

8 


Observaţie : I-a redimensionarea unei matrice, trebuie avut în vedere faptul că 
elementele matricei sînt memorate liniar, formînd un vector din coloane puse 
cap la cap. Deci, elementele de pe aceeași poziţie, în matrice nu vor fi mereu 
aceleași după redimensionare. De exemplu, matricea : 


1 2 3 

5 6 

A (4,3)= A : 
10 11 12 


redimensionată ca A (3, 3) va fi: 


1 a âg 8 
A (3, 3)= 4 : VOTE ii 
7 5 3 


Calculul inversei unei matrice. O matrice pătrată, nesingulară poate fi 
inversată. De remarcat că, o matrice poate îi inversată în ea însăşi, adică, matri- 
cea din membrul stîng al instrucţiunii poate fi aceeaşi cu cea din membrul drept. 


Exemplu : 10 MAT A=INV (A) este corectăs 
Dacă se dorește și calculul determinantului matricei A (sau numai deter- 
minantul) se va folosi instrucţiunea : 10 MAT A=INV (A), VI. 
La execuţia instrucţiunii 10, variabilei V1 i se va atribui valoarea deter- 
minantului matricei A. 
10 MAT READ A (2,2) 
20 MAT B=INV (A),D 
30 MAT C=A*B 
4) MAT PRINTI A, B, C 
50 PRINT D 
60 DATA 1, 2, 3, 4 
70 END 


Execuţia acestui program va determina tipărirea matricelor : 
îi | 1 2 BULA | —2 1 
e apuci Vl Li —0.5 


ŢI 
[C=A*B =acai=| 9 1 | — matrice unitate 


Se va tipări și valoarea determinantului matricei A 


PP Ddet (A)=(1%4)—(2%3)=—2 
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Observaţie : Pentru calculul inversei unei matrice, se scrie transpusa matricei, 
se înlocuiește fiecare element cu complementul sau algebric (minorul cu semnul 
corespunzător) împărțit la valoarea determinantului matricei. Inversa se poate 
calcula mai eficient prin alte metode. 

Transpusa unei matrice. Transpusa unei matrice A (M, N) va avea dimensiu- 
nile (N, M). Un vector fiind tratat ca matrice coloană, transpusa sa va fi o matrice 
linie. 

[10 MAT INPUT V (19) 
20 MAT A=TRN (V) 
30 END 

Instrucţiunea 1) va citi de la consolă vectorul V, de 10 elemente. Instruc- 
țiunea 20) va aloca matricea A (1, 10) şi-i va atribui valorile elementelor vecto- 
rului V. Transpusa unei matrice linie este o matrice coloană. 

10 DIM V (10) 

20 MAT INPUT A (1, 10) 
30 MAT V=TRN (A) 

40 END 

În acest program transpusa matricei linie A va fi memorată în vectorul V. 
Observaţii : 

1. În instrucțiunile matriceale se poate lucra cu vectori atita timp 
cît operaţiile efectuate nu necesită transformarea vectorilor (tablouri cu o 
dimensiune) în matrice (tablouri cu două dimensiuni). Acest lucru (permiterea 
utilizării vectorilor în instrucțiunile matriceale) este util în descrierea majori- 
tății problemelor în care se prelucrează matrici (ex. : sisteme de ecuații liniare 
— termenii liberi şi necunoscutele sînt notaţi ca vectori B (N), X (N) nu ca 
matrice B (N, 1), X (N, 1)) 

2, O matrice nu poate fi transpusă în ea însăși. Instrucţiunea : 


10 MAT A=TRN (A) este incorectă. 


Produsul a două matrice. Pentru a putea înmulți două matrice numărul 
de coloane al primei matrice trebuie să fie egal cu numărul de linii al celei de-a 
doua. 

Se consideră instrucțiunea : 


50 MAT A=B*C 


Dacă B are dimensiunile (P, N), iar C (N, Q), matricea A va avea dimen- 
siunile (P, Q). 

În cazul în care matricea A nu a fost în prealabil alocată, ea va fi alocată 
la execuţia instrucţiunii 50, cu dimensiunile (P, Q). Dacă matricea A a fost alo- 
cată ea va căpăta dimensiunile (P, Q). 

Observaţie : Matricea rezultat nu poate figura ca matrice factor. Deci instruc- 
ţiunile : 
19 MAT B=B*C 


sau 
10 MAT C=B*C 


sînt incorecte. 
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Adunarea şi scăderea matricelor. Pentru a putea aduna sau scădea două 
matrice, ele trebuie să aibă aceleași dimensiuni. Aceleași dimensiuni vor fi atri- 
buite şi matricei rezultat. 


Într-o instrucțiune nu se poate executa decit o singură operaţie. Instruc- 
iunea : 
10 MAT A=B+C—D[este greșită. 
Matricea din membrul stîng al atribuirii, poate figura și în membrul drept. 
E10 MAT A=A+B, este, corectă] 
Înmulțirea unei matrice cu un scalar, 
%] 10 MAT A=(expresie)*B!] 


Matricea A va primi dimensiunile lui B şi va avea ca elemente, elementele 
matricei B, înmulțite cu valoarea axppesiei. Expresia trebuie să fie inclusă între 
paranteze i 

[Exemplu : 307MAT A=(COS (X)4SIN (x))*B EX 


2] 


Iniţializarea unei matrice, Generarea unei matrice cu toate elementele 
zero se poate realiza cu instrucțiunea : 


H 50 MAT A=ZER (3,2)] 


« iii 


Dacă matricea A a fost alocată înainte de execuția instrucţiunii 50 va primi 
dimensiunile (3, 2), dacă nu, va fi alocată cu aceleaşi dimensiuni. 


În cazul în care se urmăreşte iniţializarea matricei, fără alterarea dimen- 
siunilor, nu se vor mai specifica dimensiunile, în instrucţiunea MAT 


19 DDA6,5) 
, 
50 MAT A=ZER 
Pentru tablouri cu o singură! dimensiune se poate utiliza : 
10 MAT V=ZER (10) 


Pentru a genera o matrice cu toate elementele 1, se pot folosi, de exemplu, 
instrucţiunile : 


60 MAT B=CON (3, 3) 
sau 
70 MAT B=CON 
Instrucţiunea 70 va fi utilizată în cazul în care B este alocat în prealabil. 
Pentru a genera o matrice unitate (cu unu pe diagonala principală şi zero 
în rest) se va iolosi funcţia IDN. Exemplu: 
19 MAT A=IDN (3,3) 3 ci 


Dacă! matricea nu este pătrată (sau nu se specifică dimensiuni egale în în 
funcţia IDN), prin diagonală principală se va înțelege, diagonala ce pleacă "din din 
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elementul cu poziţia (1, 1) şi merge diagonal pînă la epuizarea numărului de 
linii sau dej coloane. 
De exemplu : 


10 MAT A=IDN.(2,3) : 
va genera : 


p î 0 . 
| p 1 0 


9.4.14. Instrucţiuni de prelucrare grafică, Soluţiile multor probleme con- 
stau din şiruri lungi de numere a căror interpretare este destul de dificilă. Repre- 
zentarea sub formă grafică a acestor şiruri de valori numerice facilitează aprecie- 
rea cantitativă şi, calitativă a soluţiilor. 

Problemele în care se utilizează facilităţile grafice impun reprezentarea 
grafică a unor valori numerice (tablouri, valori ale unor funcţii etc.) sau reali- 
zarea unor desene, hărți etc. 

În primul caz utilizatorul este interesat de forma graficului şi de încadrarea 
lui pe ecranul dispozitivului de afişare. În cel de-al doilea caz, pentru utilizator 
va fi importantă specificarea explicilă a scării de reprezentare, pentru a efectua, 
eventual, măsurători pe desene etc. 

Una din soluţiile de realizare a graficelor folosind limbajul BASIC poate 
consta în scrierea unor subrutine în limbaj de asamblare, care utilizează un anu- 
mit display, şi utilizarea lor, în BASIC, cu ajutorul instrucţiunii CALL. Această 
soluție este puţin flexibilă (nu este independentă de tipul perifericului grafic) 
şi destul de greoaie pentru un începător. 

De aceca au fost introduse instrucţiuni speciale pentru prelucrări grafice. 


Instrucţiunea MOVE. Formatul instrucţiunii : 
nr. linie MOVE X, Y 
unde: X, Y pot fi constante, variabile sau expresii. 
Instrucţiunea MOVE este folosită pentru a poziţiona spotul în punctul 


de coordonate (X, Y). De menţionat că instrucțiunea MOVE execută numai 
poziționarea în punctul de coordonate (X, Y) nu marchează punctul respectiv. 


Instrucţiunea DRAW, Formatul instrucţiunii este : 
nr. linie DRAW X, Y 
unde : X, Y pot fi constante, variabilefsau expresii. 


Instrucţiunea DRAW este folosită pentru a trage o linie între punctul în 
care se află spotul la întîlnirea instrucţiunii şi punctul de coordonate X, Y spe- 
cificate în instrucţiune. 
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De exemplu dacă se doreşte reprezentarea datelor conţinute în vecto- 
rul V (N) se poate folosi secvența 


199 MOVE 1,V (1) 
119 FOR J=1T0 N 
120 DRAW J, V(J) 
139 NEXT J 


Instrucţiunea 100 execută o poziționare în punctul de coordonate (1, V (1)), 
apoi în ciclul FOR se unesc prin linii elementele vectorului V. Se observă că 
instrucţiunile MOVE şi DRAW sînt suficiente pentru a face reprezentări grafice. 


Instrucţiunile WINDOW şi VIEWPORT. Coordonatele X, Y specificate 
în instrucțiunile MOVE şi DRAW sînt exprimate în unitățile de măsură în care 
sînt exprimate mărimile de reprezentat (metri, kg, volţi etc.). 

Acest sistem de coordonate definește „spaţiul utilizatorului“ sau spaţiul 
virtual. Spaţiul virtual este limitat practic de precizia aritmeticii maşinii (2 10,8). 
Acest „spaţiu utilizator“ va fi reprezentat la o anumită scară pe suprafața dis- 
play-ului. 

După cum s-a arătat la începutul paragrafului, în problemele de repre- 
zentare grafică a unor date, utilizatorul preferă să definească limitele spațiului 
În care sînt cuprinse valorile de prezentat şi să accepte scara și originea implicit 
«determinate, fără a mai specifica o scară de reprezentare şi o origine. 

Instrucţiunea prin care utilizatorul specifică limitele „spaţiului utilizator” 
în care sînt cuprinse datele de reprezentat este : 


nr. linie WINDOW A, B,C,D 


unde : A, B, C, D sînt variabile, constante sau expresii care reprezintă limitele 
spaţiului utilizator, în ordinea : 


A = limita stîngă C = limita inferioară 
B = limita dreaptă D = limita superioară 
Cele patru limite definesc un spaţiu dreptunghiular. Orice punct de coor- 
donate (X, Y) pentru care : 
ASXSB 
CSYS<D 
va îi reprezentat grafic. Punctele care cad în afara dreptunghiului nu vor avea 
imagine pe suprafața display-ului. Din linia trasă cu instrucţiunile : 
19 MOVE XI, Yi 
29 DRAW X2, Y2 
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va fi reprezentată numai porţiunea interioară dreptunghiului (ferestrei), definite 
mai sus, de limitele A, B, C, D 

Observaţie : De remarcat că poate fi luat implicit spaţiul utilizator maxim posi- 
bil (impus de aritmetică) 


10 WINDOW —104 18, 10418, —10418, 10418 


În acest caz toate valorile numerice cu care se poate lucra într-un program 
sînt reprezentate grafic. Dezavantajul constă în aceea că scara implicată este 
extrem de mare, și un domeniu de valori destul de mare (2 10%) se va reprezenta 
printr-un singur punct (pe un display cu latura de 1000 puncte). __ 

y + Fâşj L-aturile ferestrei (dreptunghiului) declarate în instrucțiunea ca WINDOW 
trebuie să fie cît mai apropiate de domeniul de valori de reprezentat, pentru ca 
graficul obţinut să fie cît mai fin. 

Pină acum s-a considerat că spaţiul utilizator, definit prin instrucțiunea 
WINDOW, va fi reprezentat pe toată suprafața display-ului. În unele aplicaţii 
se va dori scrierea unor comentarii alături de grafic sau realizarea mai'multor 
grafice pe aceeași suprafață. 

Pentru a descrie porțiunea din suprafață display-ului pe care va fi realizat 
graficul (va fi proiectat spaţiul utilizator) se foloseşte instrucţiunea : 

nr. linie VIEWPORT A, B, C, Dj Le] 


unde : A, B, C, D sînt variabile, constante sau expresii și reprezintă limitele 
zonei din suprafaţa display-ului, în aceeaşi ordine ca pentru WINDOW : stîngă, 
dreaptă, inferioară, superioară. 

Şpre deosebire de WINDOW unităţile în care se exprimă limitele A, B, C, D 
sint unităţi fizice. 

Alegerea unităţii fizice în care să se exprime limitele A, B, C, D trebuie să 
satisfacă cerințele de independență faţă de tipul perifericului grafic, (unele 
display-uri au suprafața pătrată, altele dreptunghiulare etc.). Independenţa 
de tipul perifericului, asigură ca un program scris pentru un anumit display să se 
poată folosi și pentru alte tipuri de echipamente de afișare. 

Unitatea în care se exprimă limitele A, B, C, D s-a ales ca fiind un procent 
din latura pătratului cel mai mare, care poate fi înscris în suprafaţa display-ului. 
Aceasta se va numi unitate grafică (UG). Originea a suprafeţei display-ului se con- 

g. a 
mai in colțul din stînga jos. În aceste condiţii iînstracțilanea : sli 3 

i 10 PVIEWPORT 9, 100, 0, 100 Îi, Ei 
[tau 20 ie Ai 
va specifica dimensiunile celui mai mare pătrat înscris în suprafața display-ului 
(dacă “suprafața display-ului este pătrată, va reprezenta întreaga suprafață). 

Această instrucțiune este executată implicit de sistem. | 

“De asemenea implicit este executată și instrucțiunea : 


WINDOW 0, 100, 0, 100 


Aceste două instrucțiuni realizează o corespondență unu la unu între 
unitățile utilizator (pe orizontală și pe verticală) și unitatea grafică (UG). 
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Cu aceste iniţializări implicite un cerc va apărea nedistorsionat, deoareceg 
pe ambele axe de coordonate se folosesc aceleași unităţi de măsură, iar suprafața 
graficului este pătrată (ace eași scară! pe ambele axe). 

Programul următor va trasa, un cerc! pe orice display : 

[100 MOVE 85, 50 1320 NEXT JĂ 
110 FOR J=0TO 2*PI1 STEP PI/10 149 END 
120 DRAW 35*COS (J)+-50, 35*SIN (J)+ 504 
Cercul vajavea centrul în punctul de coordonate (50, 50), iar raza va fi 39. 


Se observă că, în program, nu a fost necesară utilizarea instrucțiunilor 
WINDOW sau VIEWPORT. Nu este necesară cunoașterea particularităților 
display-ului. Este suficient să se ştie că orice display are o suprafaţă de cel puţin 
100/100 unităţi (UG). Evident, pentru reprezentări de date care nu variază 
intre 0 şi 100 se impune utilizarea instrucţiunii WINDOW (altfel se reprezintă 
doar porţiunea din grafic cuprinsă în fereastra 0, 100, 0, 100). Dacă se va dori 
ca reprezentarea graficului să se facă numai pe o porţiune din suprafaţa display- 
ului, va trebui utilizată instrucţiunea VIEWPORT. De pildă, pentru colțul din 
dreapia sus se va folosi instrucţiunea : ; 


110 VIEWPORTI75,.100, 70, 100 | Â 

Instrucţiunile prezentate mai sus: MOVE, DRAW, WINDOW, VIEW- 
PORT formează setul minim de instrucţiuni grafice, cu! ajutorul cărora se poate 
rezolva orice problemă de reprezentare grafică. Sînt prevăzute, de asemenea, 
instrucțiuni care înlesnesc utilizarea subrutinelor pentru realizarea graficeloi, 
manipularea figurilor (rotații, translaţii) și instrucțiuni care realizează indepen- 
denţa programelor faţă de tipul perilericului, grafic. 

Instrucţiunile RMOVE şi RDRAW,| Formatul instrucțiunilor : 
| [nr. linie RMOVE X, Yi 
748 Înr. linie RDRAW X.Y. E 4 ţ 
unde: X, Y pot fi constante, variabile sau expresii. 

Instrucţiunile RMOVE şi RDRAW se deosebesc de MOVE și DRAW prin 
faptul că coordonatele X, Y nu Sint raportate la originea sistemului, ci la poziția 
spotului! (punctului grafic), la momentul execuţiei instrucţiunii. Aceste instruc- 
țiuni sînt utile în scrierea subrutinelor care generează! diverse figuri. Figurile 
respective vor putea fi desenate șn orice loc, pe suprafața display-ului, prin uti- 
lizarea instrucţiunii MOVE, înainte de apelul rutinei care gencreazăy figura. 
Astfel, se realizează translaţiat figurilor. isa 


*mstrucțiunea SCALE, În unele aplicații, realizarea de hărţi, diagrame, 
desene etc., este utilă indicarea explicită a scării de reprezentare dorite. 
Formatul instrucţiunii folosite în acest caz este : 
nr. linie SCALE S1, S2 
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unde : S1, S2Țsînt constante, variabile sau expresii care reprezintă factorii de 
scară pe orizontală şi pe verticală. Factorul de scară indică numărul unităților 
utilizator reprezentate pe o unitate grafică 


dr unităţi utilizator 
1 “unităţi grafice (UG) 


Observaţie : În cazul în care se doreşte efectuarea de măsurători pe grafic, utili- 
zatorul va trebui să ştie cîţi milimetri (de exemplu) reprezintă o unitate grafică 
(UG) pentru perifericul respectiv (se reamintește că 1UG reprezintă a suta parte 
din latura pătratului maxim inscriptibil în suprafaţa display-ului). 

Originea sistemului de coordonate se consideră în punctul în care se află 
spotul (punctul grafic) la execuţia instrucţiunii SCALE. Pentru aceasta se va 
folosi, eventual, instrucţiunea MOVE. înaintea instrucţiunii SCALE. Punctul 
specificat ca origine va fi reprezentat pe g grafic în colțul din stînga jos. 

Se poate remarca faptul că instrucțiunea WINDOW este echivalentă cu 
SCALE, avînd în plus specificarea originei. Coordonatele originii vor lua locul 
parametrilor A, C din instrucţiunea WINDOW, iar factorii de seară vor deter- 
mina limitele B şi D din WINDOW. 


Instrucţiunea ROTATE, Formatul instrucţiunii ROTATE este următorul 3 
nr. linie ROTATE U 


unde : U este o constantă, variabilă sau expresie. 

Instrucţiunea ROTATE are efect numai asupra instrucţiunilor RMOVE 
şi RDRAW, realizînd rotația cu unghiul U a vectorilor generaţi cu RDRAW 
sau a poziționării realizate cu RMOVE. 

Dacă instrucțiunea ROTATE este utilizată înainte de apelul unei rutine 

care generează o ligură cu ajutorul instrucţiunilor RMOVE și RDRAW, figura 
generată va apărea rotită cu unghiul speciticai (în radiani). Rotaţia figurii res- 
pective va fi realizată faţă de punctul î în care s-a început generarea figurii, punc- 
tul unde se află spotul la începutul secvenței de program (rutinei) ce desenează 
figura. Instrucţiunile MOVE şi DRAW nu sînt afectate de ROTATE, deoarece 
coordonatele absolute, specificate în aceste instrucțiuni trebuie să rămînă neal- 
terate, pentru a se putea executa poziționări în punctele dorite înainte de gene- 
rarea unor figuri cu RMOVE şi RDRAW. Astfel, se permite utilizarea simul- 
tană şi independentă a translației şi rotației figurilor. 

Exemplu : Următorul program va trasa un pătrat cu latura de 10 unităţi (Se 
consideră inițializările implicite deci nu se vor folosi WINDOW şi VIEWPORT) 


99 MOVE 0, 0 120 RDRAW —10, 0 
100 RDRAW 10, 0 130 RDRAW 0, —10 
110 RDRAW 0, 10 140 END 


Pătratul va li trasat începînd din origine. Instrucţiunea 90 poziţionează 
spotul în originea spațiului utilizator care pentru iniţializările implicite, coincide 
cu originea suprafeţei grafice (colţul din stînga jos). 

Pătratul poate îi micșorat, mărit sau transformat în dreptunghi cu ajuto- 
rul instrucţiunii SCALE S1, S2. Dacă S1=S271 pătratul va fi micșorat sau 
mărit, dar laturile vor rămîne egale între ele. Pentru S1=S2=1 pătratul va fi 
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trasat neschimbat faţă de cel din exemplul de mai sus. În cazul în care S1zS2 
laturile trasate pe display nu vor mai fi egale, iar pătratul va fi reprezentat ca 
dreptunghi. 

Următorul program va desena pătratul de două ori mai mare decit cel 
trasat de programul precedent. 


10 MOVE 9, 0 110 RDRAW 0, 10 
20 SCALE 1/2, 1/2 120 RDRAW —10, 0 
30 GOSUB 109 130 RDRAW 0, —10 
40 STOP 140 RETURN 

100 RDRAW 10, 0 150 END 


Se observă că secvenţa de program care desena pătratul a fost scrisă ca 
subrutină. Dacă se doreşte ca pătratul să fie desenat în alt loc pe suprafața 
display-ului se va schimba instrucţiunea 10. De exemplu, punînd : 


"=, MN] 10 MOVE 59, 50 


pătratul va fi trasat (în sens trigonometric) începînd din punctul de 
coordonate (50, 50). 


Observaţie : Latura pătratului va avea tot 10) unităţi utilizator (s-a folosit aceeaşi 
secvență de instrucțiuni pentru generarea pătratului), însă datorită indicării 
scării de 1/2, dimensiunea laturii pătratului desenat va fi 20 unităţi grafice (UG), 
deci dublă faţă de latura pătratului trasat de programul precedent. 


Pătratul generat de subrutina care începe cu instrucțiunea 100 poate fi 
trasat începînd din punctul de coordonate (50, 50) şi rotit cu unghiul PI/4 cu 
ajutorul programului : 


10 MOVE 50, 50 30 GOSUB 100 
20 ROTATE PI/4 40 STOP 


În cazul în care se doreşte ca pătratul să fie micșorat şi rotit, în sens invers 
trigonometric, se va putea folosi programul : 
10 MOVE 20, 39 40 GOSUB 109 
20 SCALE 2, 2 50 STOP 
30 ROTATE —PI/3 


Pătratul va fi trasat începînd din punctul de coordonate (20, 30), micşorat 
la jumătate (latura de BUG) şi rotit în sens orar cu unghiul PI/3. 


La instrucţiunea 100 începe aceeași subrutină de generare a pătratului 
ca și în programele precedente. 


Instrucţiunea INIT. Formatul instrucţiunii este următorul : 
” nr, linie INIT (P] 


Execuţia instrucţiunii INIT constă în ştergerea ecranului display-ului 
şi efectuarea inițializărilor grafice implicite, anume : 


WINDOW 0, 100, 0, 100 
și 
VIEWPORT 0, 100, 0, 100 
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Deci instrucţiunile grafice SCALE, WINDOW, VIEWPORT şi ROTATE 
executate înainte de INIT își pierd valabilitatea. 


Dacă parametrul P este prezent, atunci display-ul trece în mod pagină, 
altfel rămîne în mod defilare. | 


Instrucţiunea GSINPUT. Formatul instrucţiunii GSINPUT este următorul: 
nr. linie GSINPUT VI, V2 
unde: VI, V2 sînt variabile. 


Instrucţiunea GSINPUT este utilizată pentru a realiza independența; 
totală faţă de tipul perifericului grafic. Execuţia instrucţiunii constă în atribui- 
rea variabilelor VI, V2 a dimensiunilor exprimate în unităţi grafice (UG) ale 
suprafeţei display-ului. De exemplu, un display poate avea suprafața dreptun- 
ghiulară cu latura orizontală mai mare sau cu cea verticală mai mare (fig. 9.3 a,b). 


150UG 


130UG 


4007-00 


100 UG 


Fig. 9.3. Stabilirea unităţilor grafice pe suprafața ecra- 
nului de afișare: a) V1=130UG; V2=100UG; b) Vl= 
=100 UG ; V2=150UG. 


Executînd instrucțiunea GSINPUT VI, V2 pentru display-ul din fi- 
gura 9.3. a, variabilele V1, V2 vor primi valorile V1=130, V2=100, iar pentru 
display-ul din figura 9.3b, V1=100, V2=150. 

Utilizînd variabilele VI, V2 în instrucțiunea VIEWPORT se vor obţine: 
programe care utilizează înti eaga suprafață a display-ului, indiferent de forma ei: 


100 GSINPUT A, B 
110 VIEWPORT 0, A,0,B 


Instrucţiunile PLOT și UNPLOT. Instrucţiunile PLOT şi UNPLOT iîmpre- 
ună cu caracterele speciale (semigrafice), utilizabile în instrucţiunea PRINT,- 
oferă facilităţi semigrafice limbajului BASIC. Formatul instrucțiunilor este:: 

nr. linie PLOT X, Y 
şi 
nr. linie UNPLOT X, Y 


uned : X, Y pot fi constante, variabile sau expresii. 
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Execuţia instrucțiunilor constă în a aprinde sau stinge pătrățelul de coor- 
donate X, Y de pe suprafaţa display-ului. Suprafaţa display-ului este formată 
din 64X64 pătrăţele, un pătrăţel conținînd 4xX4=16 puncte grafice. Originea 
suprafeţei, (pătrăţelul de coordonate 0, 0) se consideră în colțul din stînga, jos 
al suprafeţei display-ului. Prin urmare, valorile expresiilor X şi Y vor fi cuprinse 
între 0 şi 63. Următorul program, trasează două linii, una orizontală, cealaltă 
verticală, care se intersectează în mijlocul ecranului 


10 INIT 40 PLOT 1, 32 
20 FOR 1=0 TO 63 50 NEXT 1 
30 PLOT 32, 1 60 END 


9.5. Mesajele de eroare ale interpretorului BASIC 


În timpul introducerii programului, instrucțiunile (liniile ce încep cu un 
număr) nu sînt analizate sintactic, ci sînt depuse în memorie, în ordinea numere- 
lor de linie. O linie care nu începe cu un număr va îi interpretată de sistem 
drept o comandă. Dacă ea nu reprezintă o comandă validă (de exemplu este o 
instrucţiune fără număr de linie) sistemul va tipări mesajul : WHAT ?, indicînd 
faptul că ultima linie introdusă este incorectă. Linia va trebui să fie reintrodusă 
corect. i 

Erorile depistate în timpul execuţiei programului sînt tipărite la consolă 
sub forma : 


ERROR XX IN LINE YYYY 


unde : 
— XX reprezintă codul erorii 
— YYYY reprezintă numărul liniei în care a fost depistată eroarea 


Semnificațiile codurilor de eroare (XX) posibile, sînt date în continuare » 


Codul erorii Semniticaţie 
+ — programul nu se termină cu instrucţiunile END sau STOP 
2 — tip de instrucţiunea nerecunoscut (cuvint cheie incorect) 
3 — există instrucţiuni sursă după instrucțiunea END 
4 — numărul liniei destinaţie este incorect (în instrucţiunile IF, GOTO, GOSUB, 
ON) 
5 — numărul liniei destinaţie este inexistent (în instrucțiunile IF, GOTO, 
GOSUB, ON) 
6 — caracter ilegal 
i — instrucțiune neterminată 
8 — expresie incorectă 
9 — eroare la conversia în virgulă mobilă 
10 — utilizare incorectă a funcţiilor GET sau PUT 
11 — tentativă de redimensionare (prin DIM) a unui tablou 
12 — tablou utilizat înainte de a fi definit (stocat) 
13 — argumentul funcţiilor SIN, COS sau TAN prea mare (> 10%) 
14 — relaţie incorectă în instrucţiunea IF 


A5 — depășirea stivelor în evaluator — expresie prea coinplicată 
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10 — eroare în ridicarea la putere (0 la puterea (0 sau număr negativ la putere 
reală) 
17 — instrucţiune FOR utilizată fără instrucțiunea NEXT corespunzătoare 


(buclă FOR neînchisă) 


18 — înstrucțiune NEXT utilizată fără instrucțiunea FOR corespunzătoare 

19 — depăşire stivă FOR (peste 3 cicluri cuprinse unul într-altul) 

20 — indice mai mare de 254 sau egal cu O 

21 — se dorește citirea mai multor constante decit au fost definite în instrucțin= 
nile DATA 

29 depășirea valorilor deciarate ale indicilor 

23 radical din număr negativ 


24 — logaritm din număr negativ 


25 dimensiuni necompatibile petru produs de matrici 

26 matricea din membrul stîng al egalităţii nu poate apărea în menebrut 
drept (pentru transpusă sau produs de matrici) 

27 — matrice singulară — nu poate [i inversată 

28 — redimensionare incorectă — noile dimensiuni depășesc pe cele maxime 

29 — prin redimensionare nu poate fi schimbat numărul de dimensiuni al unrt 
tablou 

39 — matricea nu este patrată — nu poate fi inversată 

31 — matricile nu au aceleaşi dimensiuni (pentru sumă sau diferență) 

32 —  subrutina în limbaj de asamblare cu numărul dorit nu a fost găsită în tabela 
de subrutine 

33 — parametrii incorecţi în instrucțiune de prelucrare grafică (VIEWPORT, 


WINDOW sau SCALE) 


mem a 


Fie în faza de introducere a programului, fie în timpul execuţiei sale poate 
apărea la consolă mesajul MEMORY FULI-, indicînd faptul că nu mai există 
memorie disponibilă, de alocat pentru variabile sau de stocat noi linii de pro- 
gram. În acest moment se poate introduce o singură cifră (de la consolă) care 
va indica acţiunea care va avea loc în continuare. 


Număr introdus Semniticație 

[] RUN — execută programul din memorie 

1 SAVE  — copiază programul din memorie pe casetă 
2 LIST  — listează programul din memorie 

E] SCR — şterge programul din memorie 


3 — Microoalsulatorul personal aMIC — vol. A 


Capitolul 10. | Microcalculatorul aMIC în matematicile 
elementare şi statistică 


Dar, mai întii, o vedere de ansamblu a programării „personale“ pe aMIC, 

Utilizarea echipamentelor de calcul într-o serie de activităţi economico- 
sociale a fost mult timp frînată de regimul de lucru specilic puterii de calcul 
centralizate : prelucrarea lucrărilor pe loturi. Timpul de răspuns, adică durata 
între momentul predării spre execuţie a unei lucrări şi momentul primirii rezul- 
tatului prelucrării, poate fi de ordinul orelor sau chiar zilelor, funcție de o serie 
de factori specifici exploatării pe loturi la centrele de calcul. Valoarea mare a 
timpului de răspuns implică două inconveniente majore : 

a) apariţia de discontinuități mari în activitatea de elaborare, testare și 
depanare a programelor, avind ca rezultat o eficirnță scăzută a activităţii de 
programare. 

b) imposibilitatea utilizării puterii de calcul în activități care solicită o 
colaborare permanentă om-ealculator pe durata execuţiei programelor. 
"Regimul de lucru cu acces direct al utilizatorilor la echipamentul de calcul, 
fie că este vorba de acces local sau de la distanţă, rezolvă în cea mai mare parte 
inconvenientele de mai sus, însă această rezolvare nu este în beneficiul unui 
număr mare de utilizatori. Principalul obstacol în răspîndirea acestui mod de 
lucru îl constituie costul ridicat al unui sistem de calcul interactiv şi numărul 
limitat de terminale-ce pot îi gestionate simultan în cadrul unui asemenea sistem. 


Apariţia microcalculatoarelor, considerate ca fiind sisteme total inter- 
active, permite diseminarea puterii de calcul pentru orice tip de aplicaţii, prin 
avantajele specifice pe care le posedă : preț de cost scăzut, programare în limbaje 
conversaţionale de nivel înalt, posibilitatea conectării prin linii de teletransmisie 
la sisteme de calcul de capacitate medie-mare, interfață simplă cu operatorul 
uman etc. 

Microcalculatorul personal aMIC pune la dispoziţia utilizatorilor săi o 
serie de facilităţi destinate implementării cît mai simple a puterii de calcul 
într-un domeniu vast de aplicaţii. 

Inrerfaţa cu operatoru! este concepută pe două niveluri : nivelul monitor 
şi nivelul BASIC. Ambele au făcut obiectul unei tratări detaliate în capitolele 
precedente. Reliefăm doar faptul că această ierarhizare, neobişnuită la micro- 
calculatoarele personale, permite dezvoltarea de aplicaţii în două direcţii : 
cea a domeniilor specializate, necesitind elaborarea de programe în limbaj de 
asamblare, și cea a domeniilor de larg interes, scrierea aplicațiilor făcîndu-se în 
limbajul BASIC-aMIC, al căror obiect îl constituie prezentul capitol. 
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Limbajul BASIC implementat pe microcalculatorul aMIC este simplu 
şi uşor de învăţat, fiind accesibil unei categorii largi de utilizatori, chiar nespe- 
cialişti în informatică. Crearea, modificarea şi testarea programelor se desfășoară 
rapid, datorită modului de lucru conversaţional al interpretorului BASIC ; 
numărul de erori posibile semnalate la execuţia programelor este relativ redus, 
depanarea programelor neridicînd astfel probleme deosebite. Corectarea liniilor 
de program eronate se poate executa imediat, programul fiind disponibil pentru 
o nouă rulare, ciclul modificare-testare fiind foarte scurt. Acest mod de lucru, 
gen „Încearcă să vezi ce se întîmplă“ nu este cel mai indicat, dar prezintă nete 
avantaje pentru nespecialişti, eliminînd o bună parte din bariera psihologică 
ridicată de utilizarea unui pre aa nou de lucru în cadrul activităţii clasice 


a acestora. i - ius Eli Pi aa =. 

|. +. Domeniile de utilizare includ cu preponderență calcule matematice com- 
plexe, prelucrării de tip gestiune economică cu un volum mic-mediu de date, apli- 
caţii tehnico-știinţifice, învățămînt, aplicaţii grafice etc. Toate exemplele date 
în continuare au mai mult un caracter demonstrativ, didactic, încercîndu-se 
acoperirea unui număr cît mai mare de domenii diferite. gi SUR Agia 


Pej, măsură ce programarea în BASIC este însuşită,! utilizatorul îşi “poate 
defini propriile sale aplicaţii plecînd de la exemplele demonstrative ; partea cea 
mai dificilă o constituie abordarea algoritmică a aplicaţiei ce se doreşte a fi 
transpusă pe aMIC. Scopul acestui capitol este şi acela de a demonstra că un nu- 
măr surprinzător de activităţi pot fi abordate prin prisma transpunerii lor pe 
microcalculator, și că aceasta este practic la îndemîna tuturor. 


10.1. Rezolvarea ecuaţiei de gradul II : 


AX2+BX+C=0, unde A, B, C sînt numere reale. RE (X), IM (X) sînt 
partea reală şi partea imaginară ale rădăcinilor complexe conjugate. 


Programul se bazează pe organigrama datăjîn figura 10.1 


10  PRINT"AX*X+BX+C=0" REZOLV, 
15  PRINT"INTRODUCETI COEFICIENTIL:* priori a ai 


25 INPUT A,B,C CU A,B,C NUMERE REALE 


30 IF A<70 THEN 45 
33 Ge AU BCUAIA NU ESTE i GR.2* E ic dădea ai irc 45.6 


4 

ne va lata Ea ue ECUATIA ARE RADACINI COMPLEXE 
33 Saud ta PARTEA REALA „666667 

EN 80 PARTEA IHAGINARA -3.8413 
S5 PRINT*ECUATIA ARE RADACINI COMPLEXE* 
60 PRINT"PARTEA REALA",B/A/2 
70  PRINT"PARTEA IMAGINARA*, -SQR(=H/A/2 
72 Go 10 95 
80 PRINT"RADACINI REALE" 
e3 2=saR(n) 
86 u=2xa 
90 PRINT(=B+2)/U, (-B-2)/u 
95 END 

REZOLVAREA ECUATIEL 
REZOLVAREA ECUAȚIEI AXnX îBXACRO 
Aia d CU A,8,C NUMERE REALE 
CU A,B,C NUMERE REALB - INTRODUCETI COEFICIENȚII: 
INTRODUCETI COBFICIENTIE+ 12 13.12 ata 
ds RADACINI REALE 


23 
ECUATIA NU ESTE DE GR.2 146551 -2.95884, 
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RE(X e 


IM(X)) 


(RE(X) 
"RĂDĂCINI COMPLEXE: 


(sto) 


Fig. 10.1. Organigrama rezolvării ecuaţiei de gradul II. 


TECUAȚIA NU 
STE DE GRADUL 


l) PRINTYSA E REroLVa* 

10  PRINT"AXnX+BX+C < 0" 

19  PRINT*INTPODUCETI COEEICIENTIL» 
20 INPUT A,B,c 

23 1F A=0 THEN 55 

30  M=BnB-4naxc 

35 IF H>=0 THEN 70 

40 PRINŢ"ECUATIA MU ARE* 

45  PRINT“SOLUTIE IN R* 

50 60 TO 170 

95  PRINT*INECUATIA HU ESTE» 
60  PRINT*DE GRADUL 2* 

65 60 TO 170 


10.2. Rezolvarea inecuaţiei ca fo 


60  T=t-Bevo/u 


AX2+ BX +C<0. 70 IF TV THEN 110 


95  Vav 
100 V=T 
» T= 
Programul se bazează pe a i dă La 
organigrama din figura 10.2. se fu AN 6 AER 


150 60 TO 170 

150 PRINT. TI," X <,v 
169 RETURN 

170 END 


SA S& REZOLVE 

AXuXBX+C ce 

INTRODUCETI COEFICIENTILt+ 
2.2 4.1 

ECUATIA ARE 

SOLUTIE IN R 


78.9 
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"INECUATIA NU ESTE N 
DE GRADUL 2 * N 


Fig. 10.2. Organigrama rezolvării inecuaţiei 
AX?2+BX+C <0. 


10.3. Rezolvarea unui sistem (Cramer) de 5 ecuaţii 
cu 5 necunoscute 


Programul rezolvă un sistem de forma : 
(e Xe) 
unds : 
C este matrice de 5x5 elemente 
N este vector coloană de 5 elemente 
D este vector coloană de 5 elemente. 


Elementele matricilor C şi D nu sînt solicitate prin dialog, ele sînt pre- 


lixate în program la liniile 160, 170 şi 180. Dacă se doresc alte valori, se vor 
modifica aceste linii. 
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Rezultatul se afişează sub forma unui vector cu 5 elemente. 


10.4. Afişarea unui 


PRINT * REZOLVAREA UNUI SISTEM DE ECUATII - 
DIM C(5,5),D(S),E(S,S),F(S),6(5),x(5» 
MAT READ C,D 

PRINT ” MATRICEA COEFICIENTILOR * 
MAT PRINT C 

PRINT » TERMENII LIBERI * 

MAT PRINT D 

MAT E=INV(C) 

MAT X=Ex*D 

PRINT ” VECTORUL SOLUTIE * 

MAT PRINT X 

MAT F=C*x 

MAT G=D-F 

PRINT * VECTORUL EROARE * 

MAT PRINT G 

DATA 11,3,0,1,2,0,4,2,0,1,3,2,7,1,0 
DATA 4,0,4,10,1,2,5,1,3,13 

DATA S$1,15,15,20,92 

sToe 

END 


şir finit de numere prime 


Programul generează și afişează cîte un număr prim, pornind de la mul- 
țimea numerelor prime determinate anterior. Mulțimea de pornire este 2,3. 


Programul se bazează pe /următoarele ipoteze : 
1) orice număr prim este un număr impar 
2) avînd mulţimea primelor n numere prime, 


(P, Pa, ..., Pa) numărul K, K > pn, va fi număr prim dacă nu este 
divizibil cu numerele prime Pi < K. 


Întrucît prin BASIC se poate rezerva un masiv cu dimensiunea maximă 
de 254, se pot reţine maximum 254 numere prime. Din acest motiv afişarea 


se opreşte la tipărirea 


numărului prim K=—Pass, adică la 16132=2.601.769. 


PRINT * LISTARE NUMERE PRIME * 
DIM P(254) 

P(1):2 

P(2)=3 

PRINT P(1) 

PRINT P(2) 

k=S 

1=3 

j=2 


100 IF Pt(J)*2 > K THEN 180 
110 IF INT(K/P(J))=k/P(J) THEN 160 
120 J=J+1 

130 IP Jc=2S4 THEN 100 

140 STOP 

150 REM * K NU ESTE PRIn * 
160 k=K+2 

170 G0T0 90 

180 REM * K ESTE PRIN * 
190 IER 17254 THEN 210 

200 P(1)=K 

210 PRINT K 

220 K=K+2 


lelet 


240 8070 90 


END 
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10.5. Verificarea dacă un număr dat este sau nu prim 


Programul solicită prin dialog introducerea numărului de verificat. În 
baza ipotezelor de la programul anterior se verifică dacă numărul este prim sau 
nu și se afișează rezultatul (fig. 10.3). 


Fi Numărul se compară cu mulțimea numerelor prime p, < INT Vă )+ 1. 
Din acelaşi motiv ca la programul anterior (masiv cu „mărime maximă 254) 
numărul dat la verificare trebuie să fie: 


X < 2+601.769 


10 PRINT " VERIFICEREA DACA UN NUMAR & PRIN * 
20 PRINT “ DATI NUMARUL * 

30 INPUT X 

40 IF X<O THEN 60 

SO IF INf(X)-X=0 THEN 80 

60 PRINT * NUMAR NEGATIV SAU RBAL * 

70 6070 30 

80  DIH P(254) 

90 P(1)=2 

100 P(2)=3 

110 M=INT(SOR(Ă)D+L 

120 K=5 

130 1=3 

140 RE * COMPARARE CU NUMERELE PRIHE * 
150 J=2 

160 LF P(J)"2)k THEN 230 

170 LF INT(KR/P(J))=K/P(J) THEN 190 

180 J=Jei 

190 K=K+2 

200 IF K<X THEN 150 

210 PRINT X;* NO E PRIH * 

220 sToP 

230 P(l)=K 

240 IF X=K THEN 280 

250 k=k+2 

260 Izi+t 

270 G0T0 150 

280 PRINT X;*" ESTE PRIN * 

290 STOP 

END 


Yig. 10.3. Organigrama verificării dacă un număr este sau nu prim. 


INPUT N 
Fig. 10.4. Organigrama des- 
| M=INT(SQR(N) +1) compunerii unui număr în 


factori primi. 


A=5 


Das] 


RE 
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10.6. Descompunerea unui număr în factori primi 


Programul solicită prin dialog numărul de descompus în factori primi: 
Se aplică ipotezele de la 10.4 şi 10.5 pen ru a obţine șirul de numere prime: 


pînă la N, N fiind numărul dat. Se contorizează apoi de cîte ori se cuprinde: 
fiecare număr prim în numărul dat. 


Considerind descompunerea de forma : 
N ==qki eqi2-, qi 
se afișează : 


Mk 5 PRINT * DESCOMPUNEREA Ik FACTORI PRIHI * 
10. DIN P(254),D(20),6(20 : 
qa 4 k 15 PRINT * DATI NUMARUL * 
a | 2 20 INPUT N 
23 MaINT(SOR(NDDe) 
. 30 Pri)a2 
35 P(2)a3 
Ş 37 U=3 
4 40 A+3 
45 FOR I=U TO A 
50 J=2 
e SE 55 IF P(9)*2>A THEN 90 
60 IF INT(AZP(ID)*A/P(I) THEN 80 
65. Jadei 
70 LE IC254 THEN 55 
75 SToP 
BO R=A+2 
5 GoTo 50 
ŞO IF 19254 THEN 100 
95. PUL)SA 
100 A=A+2 
105 NEXTI 
110 REM * DESCOMPUNEREA * 
115 R=1 
120 J=1 
125 1=0 
130 B=P(k> 
135 C=N/B 
140 IF (INT(C)-C7=0 THEN 180 
145 IE 1=0 THEN 163 
150 (3-1 
155 J=3+i 
150 1=0 
165 K=kei 
170 B=P(R) 
175 6070 135 
180 IF 1€0 THEN 190 
185 D(9)=B 
190 l=l+i 
195 N=C 
200 1F Cei THEN 135 
205 G(7)=i 
210 REM * TIPARIREA * 
215 FOR Isi T0 
220 PRINT D(1);*+*;G(1) 
225 PRINT 
230 NEXT 1 
235 PRINT * CONTINUATI (DAs1) * 
240 INPUT D 
245 LE D=1 THEN 255 
250. SToP 
235 PRINT * DATI NUMARUL * 
260 INPUT U 
265 IF U<N THEN 115 
270 N:u 
275 u=M 
290 M=INT(SAR(ND)+1 | 
285 REM * A= ULTIN NUMAR VERIFICAT * 
290 GOTO 45 
200 END 
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10.7. Determinarea celui mai mare divizor comun 


Programul solicită prin dialog cele două numere întregi şi afişează cel 
«mai mare divizor comun al lor. 


S PRINT * CEL MAI MARE DIVIZOR COMUN * 
10 PRINT " DATI CELE DOUA NUMERE * 
15 INPUT A,8 

20 IF A=B THEN SO 

25 IF A>B THEN 49 

30 B=B-A 

35  G0T0 20 

40 A=A-B 

45 GOTO 20 

30 PRINT A 

35 60T0 10 

60 END 


10.8. Simplificarea unei fracții 


Programul solicită prin dialog numărătorul şi monitorul fracţiei. Se afi- 
şează un vector cu toate valorile cu care se poate simplifica fracţia, inclusiv 
fracția simplificată. 


Ş PRINT * SIMPLIFICAREA FRACTIILOR * 
10 PRINT ” DATI NUMARATORUL * 

15 INPUT A 

20 PRINT * DATI NUMITORUL * 

25 INPUT B 

30 DIM S(100) 

35 1=0 

40 D=2 


45 WF Dc=B THEN 95 
So IF I=0 THEN 80 

S5 PRINT * SE POATE SIMPLIFICA CU: 
60 MAT PRINT S(1) 

65 PRINT * FRACTIA SIMPLIFICATA: *; 
70 PRINT A;"/*;8 

75 sTop 

80 PRINT * NU SE POATE SIMPLIFICA * 
85 PRINT * FUNCTIA DATA: “; 

90 6070 70 

95 c=8/0, 

100 1F INT(C)=C THEN 115 

105 D=D+1 

110 GOTO 45 

115 EzA/D 

120 IF INT(E)=E THEN 130 

125 GOTO 105 

130 A=E 

135 B=c 

140 I=i+1 

145 S(1)=D 

150 GOTO 40 

155 END 


10.9. Calculul aproximativ al factorialului unui număr 


Programul solicită prin dialog numărul n și determină factorialul |său 
pe baza formulei : 


n | 2 4/2zmn (n/e)” 


Simplificarea unei fracţii 
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Formula este indicată pentru valori mari ale lui n, deoarece nu există 
înmulţiri succesive, mari consumatoare de timp. 


10.10. Permutări, 


Programul solicită mai întîi tipul operaţiei, şi corespunzător 
parametrii necesari. Calculele se execută după formulele : 


Ss PRINT * FACTORIAL “ 

10 PRINT * DATI NUHARUL ” 

15 INPUT N 

20 IF N>O THEN 35 

25 PRINT " NUHAR NEGATIV SAU ZERO * 
30  sToP 

35 F=(SQR(2xPI*N))*(N/EED"N 

40 PRINT N;"! = ";F 

45 sro 

So END 


aranjamente, combinări 


a) permutări de n elemente: 


P.=al 


b) combinări de n elemente luate cite r;: 


c) aranjamente 


Cr nl 


[dama (n—r) Ir! 
de n elemente luate cite r: 


n! 
Ap= (nr)! 


Se afişează apoi rezultatul operaţiei. 


PRINT * P: PERHUTARE A N ELEMENTE 
PRINT » A= ARANJAMENTE A R ELEMENTE DIN N 
PRINT * C: COMBINARE A N ELEMENTE LUATE CITE 
Ae=INRFYS 

IFAS=* * THEN 40 
IFAG="P" THEN 100» 
IFAS=*A* THEN 100 
IFA4="C" THEN 100 

GOTD 10 

PRINT “ INTRODUCETI PE N 
INPUT N 

1FAS="P* THEN 170 

PRINT * INTRODUCETI PE R 
INPUT R 

IF, Rc=N THEN 170 

PRINT * RON 

GOTO 120 

2 =N 

GOSUB 400 

IFAb="P" THEN 340 

B:4 

2 = N-R 

GOSUB 100 

Cc 216 

IFAS="A" THEN 280 

2-*R 

GOSVB 400 

C = CmA 

PRINT “N*;AS;"R + *;B/C 
PRINT * CANTINUATI (D/N> - 
As= INKEYS 

IFA$=" * THEN 300 
IFAS="D" THEN 10 

sToP 

PRINT *NP + “A 

GOTO 290 : 

Ai 

FOR X=1 TO 2 

A = AX 

NEXT X 

RETURN 

END 


acesteia, 
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Subprogramul de la linia 400 calculează exact valoarea factorului Z !. 
Be apelează cu valorile Z egale cu n, n—r,r de care avem nevoie în formulele 
anterioare. 


10.11. Ordonarea unui şir de numere 


Programul solicită mai întîi cîte numere se ordonează, apoi şirul de numere 
efective. Se execută ordonarea în ordine crescătoare sau descrescătoare, afişind 
şirul ordonat. 


3 PRINT * ORDONAREA UNUI SIR DE NUMERE 

10 PRINT * IN ORDINE CRESCATOARE/DESCRESCATOARB - 
15 PRINT * CITE NUMERE INTRODUCEŢI ? * 

20 INPUT 
25 DIH AD 

30 PRINT * DATI SIRUL DE NUMERE * 

35 MAT INPUT A 

40 PRINT * IN ORDINE CRESCATOARE (DA=1) 
45 INPUT D 

35 FOR I=i TO N-1 

60 FOR J=1+1 TON 

65 1R D=1 THEN 80 

70 IF ACLDXACI) THEN LIO 

75 G0T0 83 

90 IF ACL)<A(J) THENI10 

e5 B=A(J) 

90 FOR K=J TO lei STEP -i 

95 A(KO=A(K-1) 

100 NBXT K 

105 A(L)=B 

110 NEXT 3 

115 NEXT 1 

120 MAT PRINT a 

125 sToP 

130 END 


10.12. Calculul sumei celor mai mari numere 
dintr-un șir de numere date 


10 PRINT * ADUNAREA A N NUHERE DIN H 
20 PRINT * AVIND VALOAREA CEA MAI MARE 
30 PRINT * CITE NUMERE INTRODUCETI ? * 
40 INPUT M 

30 DIM A(M» 

60 PRINT * DATI NUMERELE 

70 MAT INPUT A 

60 PRINT * CITE NUMERE SE ADUNA 

90 INPUT N 


100 IF Nc=H THEN 130 esa E = 
110 PRINT * N) M SS ADUNA TOATE NUMERELE Programul solicită prin dia- 


130 Din atu» log numărul total de elemente 


140 FOR l=1 TON i i i icită a 
440 ROD ei 7 și valorile lor, apoi solicită va 
160 FOR Jzi+i TO M loarea m. 

170 IF B(1)>sA(J) THEN 210 | 

180 C=B(1) i ă e 
ceia Se afişează suma celor m 
200 AtJ)=c numere. 

210 NEXT J 

220 NEXT 1 

230 8=0 

240 FOR Ilz=i TON 

250 B=B+B(1) 

280 NEXT 1 

270 PRINT * SUMA CELOR *;M;" NUMERE - 

275 PRINT * CU VALOAREA CEA HAI MARE: +; 

280 PRINT 8 

290 sToP 

300 END 
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10.13. Calculul valorii medii ponderate 
a unei variabile aleatoare 


Se efectuează calculul valorii medii ponderate după formula : 


Se introduc prin dialog numărul total de măsurători, valorile fiecărei 
măsurători şi ponderile cu care se efectuează calculul. 


Se afișează valoarea V. 


3 PRINT * VALOAREA HEDIE MATEMATICA CU PONDERE * 
10 PRINT * DATI NUMARUL DE MASURATORI * 
15 INPUT N 

20 DIM H(ND,X(ND 

25 PRINT " DATI VALORILE MASURATORILOR * 
30 MAT INPUT H 

35 PRINT “ DATI PONDERILE * 

40 HAT INPUT X 

43 aA=0 

So 8=0 

55 REM * CALCULUL * 

60 FOR l=1 TON 

65  AsAeH(LOmXx(l) 

70  B=B+X(1) 

75 NEXT I 

80 PRINT * V = “;A/B 

85 STOP 

90 END 


10.14. Calculul valorii medii şi abaterii standard 
a unei variabile aleatoare 


| Se determină jvaloarea medie și abaterea standard după formulele 3 


i peria 
n 


Lp 


X 
i 


n 
PONI bea —V2 
Se a di (or) 


Se introduc prin dialog numărul total de măsurători şi valorile lor. Se 
afișează valoarea medie și abaterea standard determinată. 
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3 PRINT ” CALCULUL VALORII MEDII S1 A ABATERI * 
10 PRINT * STANDARD » 

15 PRINT * CITE MASURATORI ATI EFECTUAT * 
20 INPUT N 

23 PRINT * DATI VALORILE MASURATORILOR * 
30 MAT INPUT M(N) 

33 s:0 

45 FOR X=1 TON 

50  S=S+M(xX) 

55 NEXT X 

60 V=S/N 

65 s=0 

75 FOR X=1 TON 

80 S=S+(M(X)-v»"2 

85 NEXT X 

90  2=S0R(S/(N-1)) 

95 PRINT * VALOAREA HEDIE: *;v 

100 PRINT ” ABATEREA STANDARD: .2 

105 sTop 

110 END 


10.15. Tabela valorilor unei funcții definită pe intervale 


Programul solicită prin dialog trei intervale ce vor alcătui domeniul 
de definiție, de forma : 
[A, B], (B, C), [C, D] 


Funcţia este definită astfel: 


— pe intervalul [A, B] în linia 35 
— pe intervalul (B, C) în linia 45 
— pe intervalul [C, D] în linia 55 


3 PRINT * FUNCTIA VARIABILA IN INTERVALE * 
10 PRINT * DATI SN IERMAL ALE A,B,c,D " 

15 INPUT A,B,c, 

20 FOR X=A TO îi STEP 0.25 

23 K = 4+SGN(X-A)+SGN(X-89+s GN(X-C)+S6GN(X-D) 
30 ON K GOTO 35,35,as, 45,4s5,s5s5,ss5 

33 F=0 

40  GoTo 60 

45 F = SOR(X-8» 

30  G0T0 60 

53 F = SQR(C-B)+c-x 

60 PRINT "X=";X; "PUX)20F 

63 NEXT X 

70 Stop 

75 END 


Sai : aa Ș ă i tari 190 haâfineşte 
Definiţiile pot fi modificate în cadrul programului. Linia În 
pasul cu ra se penala tabelarea valorilor funcţiei. Ca rezultat, se afişează 

valorile funcției și ale argumentului pe intervalele date. 


10.16. Calculul volumului butoiului 


Se determină volumul butoiului pe baza formulei aproximative : 


2 
V. 7 n(22£ 4) ie 


Calculul valorii medii și abaterii unei variabile aleatoare IDR 


unde : 
D este diametrul secţiunii prin vrană 


d este diametrul fundului butoiului 
IL este înălțimea butoiului. 


Se solicită prin dialog circumferința la vrană și la fund şi înălțimea, afi-- 
șînd ca rezultat volumul butoiului. 


10 PRINT * VOLUMUL BuTOtuLuL n 

20 PRINT " DATI CIRCUMFERINTA LA VRANA * 
30 INPUT Ci 

40 PRINT * DATI CIRCUMFERINTA LA FUND * 
50 INPUT C2 

60 PRINT * DATI INALTIMEA * 

70 INPUT L 

89 DI=C1/P1 

90 D2=c2/P1 

100 V=PisL((2xD1+02)/6)*2 

110 PRINT * VOLUMUL BUTOLULUI: ";v 

120 STo? 

130 END 


10.17. Calculul volumului și suprafeţei torului 


Se determină volumul şi suprafaţa torului pe baza formulelor : 
V=2rRr2 
A =A472Rr 


unde : 
R este raza torului 
r este raza secţiunii torului 


Se solicită prin dialog valorile R și r, și se afișează suprafaţa și volumul 
determinate. 


10 PRINT * VOLUMUL 91 SUPRAPATA TORULUI * 
20 PRINT " DATI RAZA TORULUI » 
30 INPUT Ri 

40 PRINT " DATI RAZA SECTIUNII » 
30 INPUT R2 

60  DIs2x*R1 

70  Da=0*82 

80 F=Pl*2xDixD2 

90  V=FxDa2/4 

100 PRINT *» SUPRAFATA: *;£ 

110 PRINT * VOLUMUL: "*:V 

120 STOP 

130 END 


10.18. Calculul perimetrului şi suprafeţei unui triunghi 


Programul permite calcularea perimetrului şi ariei unui triunghi în două: 
cazuri : fie prin introducerea lungimilor celor trei laturi, fie prin introducerea 
lungimii unei laturi şi a mărimii celor două unghiuri adiacente. Se afişează 
perimetrul şi suprafaţa determinată. 
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10 PRINT * CALCULUL PERIMETRULUI Si * Li -UN T E CUNOSC: * 
15 PRINT * SUPRAFETEI TRIUNGHIULUI * ina aaa dă . ide SINAI SE, cal Fi 
20 PRINT * SE CUNOSC LUNGIMILE LATURILOR * 30 PRINT * UNGHIURILE PE ACEASTA LATURA * 
30 PRINT * DATI LUNGIMILE LATURILOR * 40 PRINT " DATI LUNGIMEA LATURII * 
40 INPUT X,Y,Z S0 INPUT Y 
So  Pp=Xryez 60 PRINT * DATI UNGHIURILE * 
60 Q=P/2 70 INPUT U 
70  S=SOR(Qn(Q-X)n(Q-Y)n(Q-2Z)) 80 INPUT U 
80 PRINT * PERIMETRUL: ";P 90  V=360-tUr+u) 
90 PRINT * SUPRAFATA: *;$ 100 X=Y*SIN(U*P1/180)/SIN(VxP1/180) 
100 sToP 110 Z=Y*SIN(U*P1/180)/SIN(V*P1/180) 
110 END 120 P=X+Y+7Z 
130 a=P/2 


140 S=SaR(ax(Q-X)xta-Y)nt0-2)) 
150 PRINT * LATURILE: *;X,Y,zZ 
160 PRINT " UNGHIURILE: *;U,V,u 
170 PRINT * PERIMETRUL: *;P 

180 PRINT * SUPRAFATA: *;S 

190 sTop 

200 END 


10.19. Calculul celui de-al N-lea număr din șirul 
lui Fibonacci. 


S-a plecat de la relația de recurentă: 
F (N)=F (N—1)+F (N—2), (V)N 23 
F(1)=1; F(2)=2. 

Programul se bazează pe organigrama dată în figura 10.5. 


10  PPINT"PROGRAMUL TIPARESTE” 
20  PRINT"AL N-LEA NUMAR DIM” 
30  PRINT"SIRUL LUI FIBONACCI * 
40 PRINT"N=* 

So INPUT N 

60 Tai 

70 u=2 

80 FOR K=0 TO N-a 

29 V=y 

100 u=u+T 

110 Ţ=v 

120 NEXT kr 

120 PRINT"F( "N," d=",u 

140 END 


Fig. 10.5. Organigrama calcu- 
lului celui de-al N-lea număr 
din șirul lui Fibonacci. 
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10.20. Calculul aproximativ al rădăcinii 
VX=z, n>=2, X>0 


Ă . j s FRINT"CALCLULUL RADICALULUI * 
S-a folosit relaţia de recurenţă . 10  PRINT“DE ORDIN N>=2 DINTR-UN” 


15 FRINT "NUMAR POZITIV X" 
20 PRINT"N=" 


1 x 25 INPUT N 
Za a |a— Ziar Jo K>0 30 IF N>=2 THEN 45 
25 PRINT"ERDARE" 
40 GOTa 20 
45 PRINT"X=" 


XI "dacă x > 1; 50 INPUT Y 
o= 55 IF X>0 THEN £$S 
ă 80 IF X=0 THEN 7% 
l, dacă X < 1. Lă=ă PRINTHEROARE 
70 GOTO 45 
Programul se bazează pe organi- til lg cz 
grama dată în figura 10.6. Die d e pui 
Procesul de calcul se oprește cînd ai pe AR 
iafă ă ia. 105  Z=((N=1)3Y+X/Y*(N=1)97/N 
este satisfăcută relația ii 110 IF ABŞ(Z-Y)<=10*(-5) THEN L2$ 
115 Yv=z 
120 GOTO 105 
| ZuZe | < e , 125 PRINT*RADICALUL PIN »,Xs" EȘTern,z 
! 130 END 


Z =ÎN=DY + 


|: 


Fig. 10.6. Organigrama calculului aproximativ al rădăcinii 
V X=Z, n>2, X>0. 
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Capitolul 11. | Microcalculatorul aMIC în economie 


şi tehnică 


11.1. Antecalculaţia de preţ pentru un produs 


Programul efectuează calculul preţului de producţie și livrare a unui 
produs, în baza formulei: 
Preţ producţie și livrare = (cost complet prod.)4+(beneticiu) 


Cost complet prod.=(cost uzină)+ (cheltuieli . desfacere) 


Beneficiu=15% (cost complet producţie). 


9 PRINT * ANTECALCULATIE DE PRET * Cost  uzină= (cost secţie) + (cheltuieli 
10 PRINT * MATERII PRIME SI MATERIALE * generale ale întreprinderii). 
15 PRINT * DIRECTE: * 

20 INPUT A - Cheltuieli desfacere =3% (cost uzină). 
23 PRINT * RETRIBUTII DIRECTE * . 

30 INPUT B Cheltuieli generale /ale întreprinderi? 
33 REM * CALCUL IMPOZIT » s p 

40 1 = (8x16)/100 =12% (cost secţie) 

45 PRINT * IMPOZIT 167: *;l;“ LEI € ă % / 

Dă A? asi Ca ge Cost secţie = (cost materii prime)? 
spe AA pole ll late la (retribuţii directe)+- (impo- 
60. PRINT = c.A.9.: Cu VEI. * ă 

65 REM * CHELT. FUNC UTILAJE * zit 16%)+(C.A.$.)+ (chelt. 
70 K = Brl+c i “ln i 
Da re zei e ua 
90 PRINT > CHELT.FUNC.UT, > *;U;“ Laț ule generale secţie). 

ES REM * CHELT.GEN.SECTIE » 

90 D = (Kx80)/100 irită - i : i e 
95 PRINT * CHELT.GEN.SECTIE: *;0; "LEI » Se solicită prin dialog variabil ele : 
Sp AMY saaris” cost materii prime și valoarea retri- 
110 PRINT + COST SECTIE: +;8;0 LB * I buţiilor directe. Se afișează toţi para- 
115 REM * CHELT.GEN. să .. . . . . . 

120 Ea tsx1257100 Lia metrii intermediari enumeraţi mai sus, 
130 REM: cost Uz i ii iar la sfîrșit, preţul final de producţie 
133 .P « Ş*£ sm: E . Ş € 
Ea ET PE a a EI şi livrare. Procentajele din cadrul calcu 
A E cea ae ebACRRE și lelor unor parametri constituie un caz 
ii ERaRă Anti MAPADĂE e inliie var» particular, fiecare utilizator putînd 
60 REM * ru “ps . 

163 P = F+6 modifica programul conform cerinţelor 
170 PRINT * COST COMPLET PROD.: *;P;* LEI * .. 

175 REM " BENEFICIU 157 » proprii. ae e 

E RA aaa Carmen ee oe  e, ÎN aa 
183 PRINT : BENEFICIU 15%: *;N;" LEI * Prograinui este. util în cazul În 
ara tau Reita gh e ia care se doreşte aflarea rapidă a variaţiei 
200 PRINT * PRET PROD.SI LIVRARE: * i i - a 
ia ari ol co eta! FE be prețului de producţie în funcție de va 
Erata Ala llăalaea Pda ia riaţia costului materiilor prime ce intră 
220 IF D = 1 THEN 10 în componenţa produsului și a valorii 
225 sTeP : 


230 END retribuţiilor necesare la executarea sa. 
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11.2. Calculul primei acordate după grupa de vechime 


Se consideră următoarele grupe de vechime: 
I. <5 ani IV. 15—20 ani 
II, 5—10 ani V. > 20 ani 
III. 10—15 ani 


Programul solicită prin dialog totalul sumei ce se va acorda drept prime 
pentru fiecare grupă de vechime. Se determină suma ce revine fiecărui angajat 
conform cu grupa din care face parte, și afişează lista tuturor angajaţilor, în- 
soțită de retribuția tarifară și prima acordată. 


19 PRINI * LALCULUL PRIMEI IN FUNCTIE * 
15. PRINT * UE GRUPA DE VECHIME.“ 
20 PRINT * GRUPE VECHIME «9 >=10 


25 PRIN 10-15 13-20, >-20 ANI 
30 DIM P(5),NSenov.Trs) 

40 PRINT * INTROD - SUMA/GRUPA GE SE * 
143 PRINT " ACORUA DREPT PRIMA * 

30 MAT INPUT P 

60 PRINT * INTROD.NR TOTAL ANGAJATI * 
70 INPUT HM 

99 MAT T = ZER 


90 FOR II 1 TOM 
100 READ N4(fo) 
110 READ V 


120 K = INT(V/5)et 
130 T(K) = T(K)el 


140 READ $ 

150 NEXT 1 

1850 FOR 1 = 110% 
170 P(1) = P(IDril) 
189 NEXT 1 


190 RI:STORE 

209 FOR 1 = 1T0M 

210 READ Nsiro) 

220 READ V 

230 HN = INT(V/S)el1 

210 READ $ 

250 PRINT N+;S;P(R) 

259 NEXT | 

270 SToP 

230 REM "NUME , VECHIME , RETRIBUTIE " 
290 DATA "IONESCU", 3,3200 
300 DATA "POPESCU+,8,2710 
310 DATA *... 


1000 END 


Datele referitoare la angajaţi se introduc prin DATA coniorm cu liniile 
de la sfîrşitul programului. Fiecare linie va conţine numele angajatului, vechi- 
mea sa în muncă și retribuţia tarifară. 


11.3. Determinarea beneficiului pentru o structură de 
fabricaţie pe produse dată 


Programul poate îi utilizat ca mijloc de determinare a celei mai avanta- 
joase structuri de fabricaţie pe grupe de produse. Se solicită prin dialog urmă- 
toarele date : 
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— numărul şi numele produselor de fabricaţie ; 

— numărul şi numele materialelor (materiilor prime) necesare fabricării 
tuturor produselor ; 

— pentru fiecare produs, cantitatea de materii prime ce intră în fabri- 
caţia sa ; 

— pentru fiecare materie primă, cantitatea existentă în stoc ; 

— pentru fiecare produs, beneficiul estimat ; 

— structura de fabricaţie (cîte bucăţi se vor fabrica din fiecare produs). 

Se verifică mai întîi dacă în baza datelor introduse, se poate realiza struc- 
tura de fabricaţie cerută (nedepășirea stocului de materii prime), iar dacă 
rezultatul verificării este pozitiv, se afişează beneficiul total pentru această 
structură. Se poate repeta întregul proces, modificînd doar structura de fabri- 
caţie, pînă la determinarea unei structuri optimizate (fig. 11.1). 


Structură de produse —=X(M) 


D(N) = necesar materiale pt. 
structura data 


Fig. 11.1. Organigrama programului pentru determinarea beneficiului 
pentru o structură de fabricaţie pe produse date. 


Datele despre produse şi materiale rămîn nemodificate pe parcursul 
iteraţiilor, introducerea lor fiind necesară numai în faza iniţială, de creare a 
tabelelor de date din program. Odată salvat pe casetă cu aceste date introduse, 
programul poate fi reluat oricînd direct de la dialogul de stabilire a structurii 
de fabricaţie. 

Variabilele M, N conţin numărul de produse respectiv de materiale. Matri- 
cile utilizate conţin următoarele date: 

D $ (M)  — denumirile produselor 
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P $ (N)  — denumirile materialelor 

A(M, N) —ciîte unităţi din materialul N necesită produsul M 
B (N) — stocul de materiale existente 

C (M) — beneficiul estimat pe produse 


Ciclul de verificare începe de la linia 300: 


10 PRINT " DETERMINAREABENEFICIULUI * 
12 PRINT " IN FUNCTIE DE 0 STRUCTURA * 
15 PRINT " DE FABRICATIE ALEASA “ 

20 PRINT " INTROD.NR.TOTAL PRODUSE * 


25 PRINT * SI NR.TOTAL MATERIALE * 
30 INPUT H,N 

40 DIN A(H,N),X(ND,B(ND,C(N),D(ND 

50 DIM Ds(H,10) 

60 DIM PS(N,10) | 

70 PRINT " INTROD.DENUMIRI PRODUSE * 
80 FOR I = 1T0M 

90 INPUT D4(1) 

100 NEXT 1 

110 PRINT * INTROD.DENUMIRI MATERIALE * 
120 FOR | = 1 TON 

180 INPUT P$(I) 

140 NEXT 1 

145 PRINT " INTROD CONSUM MAT/PROD, * 
150 FOR 1 = 1 T0M 

160 FOR J = 1 TON 

170 PRINT D4(1);* NR.BUC.DIN: *;P3(J) 
180 INPUT A(1,J) 

190 NEXT J 

200 NEXT 1 

205 PRINT * INTROD. STOC MAT * 

210 FOR J = 1 TON 

220 PRINT * DIN *;P$(J);* CITE U/M AVETI * 
230 INPUT B(J) 

240 NEXT J 

245 PRINT * INTROD BENEF.ESTLAAT 

250 FOR | = 1 T0H 

260 PRINT D$(1);" CE BENEF.REALIZEAZA * 
270 INPUT C(l) 

280 NEXT 1 

290 PRINT * INTROD.STRUCTURA DE FABR. * 
295 PRINT * NR. PRODUSE PE TIPURI * 
300 FOR | = 1 TOM 

310 PRINT D$(1);* PRODUŞ * 

320 INPUT XII) 

330 NEXT 1 

340 MAT D = ZER 

350 FOR 1 = 1 TON 

360 FOR J = 1 TOM 

370 D(L) = D(L)+XCIDRAUI,L) 

380 NEXT J 

390 NEXT 1 

400 I =0 

410 FOR 1 = 1 TON 

420 IF JI <> O THEN 460 

430 IF D(1) <= B(L) THEN 460 

440 3 = 

450 PRINT * STRUCTURA DATA NU SE POATE * 
455 PRINT * REALIZA * 

460 NEXT 1 

470 IF 3 = 0 THEN 520 

480 PRINT * ALTA STRUCTURA? (DA=1) 
490 INPUT E 

500 IE E = 1 THEN 290 

510 SToP 

520 s$ =0 

530 FOR 1 = 1T0 N 

S40 3 = S+x(EDxc(t) 


NEXT 1 

560 PRINT * BENEFICIUL ESTE: *;$ 
570 G0T0 480 

580 END 
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Fig. 11.2. Organigrama programului pentru determi- 
narea drumului minim între două noduri ale unui 
graf dat. 


Determinarea drumului minim Între două noduri ale unui graf dat 1:9 


11.4. Determinarea drumului minim între două noduri 
ale unui graf dat 


Programul consideră un graf ca fiind definit prin noduri şi arce, fiecare 
nod fiind etichetat cu un număr întreg pozitiv. Se solicită prin dialog : 
— numărul total de noduri = N 
— numărul total de arce = E 
— eticheta (numărul) nodului de pornire (primul nod din drumul de 
minimizat) = $S 
— eticheta (numărul) nodului de sosire (ultimul nod din drum) = 
— pentru fiecare arc : 
— nodul inițial 
— nodul final 
— lungimea sa. 


Din datele introduse se comple- Aa ii bo ia II 
tează masivul A (N, 4) în care A (L, 2)= 00 i 0-A ANII 
=1 000 000 considerat un timp foarte 50 INPUT £ 
mare respectiv A (Ș, 2) =—( pentru nodul 7 SE aicuL Mou DE FORNIRE : 
de pornire. Masivul B (E, 3) se com- + ANII T1MfECuL MODULUI 98 SOSIRE - 
pletează cu numărul nodurilor pe arce 100 UE VIntis ot 
şi cu timpii necesari parcurgerii arcelor. 120 A al 
Conectorul A (L, 4) va conţine legătura inot AR. ati 
către liniile din masivul B. 10 MEI 
În A (L, 2) se totalizează timpii fie 9 iata 
necesari parcurgerii grafului, conform iti AIE Duel dp a a că 
schemei din figura 11.2. 200, UAP Vei le 
Se afișează sub forma unui şir de 220 RS INLÂNTUIRE TABLOU A SI B 
etichete (numere) drumul minim între E rii Pitt" ii 
cele două noduri specificate. Afişarea Ace EX E 
se face în ordinea inversă parcurgerii 270 3 = AL1,4) 
sale (de la nodul de destinaţie la nodul E e A 0. aia 
de pernire). = dia d E edi 
„1 Programul poate fi utilizat într-o = ce DUPA del 3 Maat 
serie de domenii unde este necesară 350 Mea 21 
optimizarea distanțelor parcurse, pla- 00 ee 24 300 
nificarea activităţilor de producţie etc. DM e & 
Se va considera lungimea unui arc drept (03, 8 A Sfe Ata 450 
măsură pentru distanțe de parcurs, 230 k = Kei 
timpi necesari în efectuarea unor ope- 150 E Alla 0 THEN 390 
rații tehnologice etc. 490 PRINT A SD1n -8:* IN *;Hi* DRUMUL *+ 


480 PRINT * CEL MAI SCURT ESTE: * 
490 PRINT * PRIN NODURILE: *;H; 
SDO X = A(H,3) 

510 1F X = O THEN 550 

$20 PRINT, * , să, 

530 X = AtX,3) 

540 6070 510 

550 STOP 

560 END 
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11.5. Gestiunea unui stoc de magazie de tehnică dentară 


Se consideră că există o magazie care primește materiale specifice dentare, 
şi le distribuie la mesele de lucru. 

Fiecare masă de lucru elaborează o anumită lucrare, pentru care se con- 
sumă o anumită cantitate de materiale. 

Fiecărei lucrări îi este asociat un barem de consumuri utilizat pentru 
verificarea încadrării în normele stabilite. 

Programul oferă următoarele opţiuni de lucru : 

— punerea la zi a magaziei centrale (primire /eliberare materiale) ; 

— vizualizarea stocului existent în magazia centrală ; 

— punerea la zi a stocului de materiale la mesele de lucru, cu verificarea 


consumului de materiale ; 


— vizualizarea stocului de materiale existent la mesele de lucru. 


10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
So PRINT 
S5 PRINT 
50 PRINT 


70 INPUT X 
30 ON X GOTO 90,400,780,880,1540 


>0 PRINT 
100 PRINT 
110 INPUT 
120 IF A$ 
130 IF A$ 
140 PRINT 
150 .INPUT 
160 Y =0 
170 FOR 1 
180 IF 8% 


. 
. 
49 
= 
o 


8% 


2 


MAGAZIA DE TEHNICA DENTARA * 

1= SE TINE LA ZI MAGAZIA CENTRALA * 

2= VIZUALIZARE STOC MAGAZIE CENTRALA * 
3= VIZUALIZARE STOC LA MESE * 

4= SE TINE LA ZI STOCUL LA MESE * 

Ş= 3 


sToP 
DATI NUMARUL PRELUCRARII * 


SE TINE LA ZI MAGAZIA CENTRALA * 
PRIMITI SAU ELIBERATI MAT.(P/E) * 


"E* THEN 450 

"P* THEN 90 
DATI MATERIALUL SI CANTITATEA * 
(TO),X 


1 TON 
M$(1) THEN 220 


190 O(1) = O(1)+X 


200 Y=1 
210 1 =N 
220 NEXT 1 


230 IF Y <> O fHEN 340 
240 PRINT * MATERIAL NOU? (D/N> 


250 INPUT 
260 IF A$ 


A$ 


"D”» THEN 280 


270 GOTO 340 
275 REM * SE ADAUGA UN MATERIAL NOU * 


300 MS(N) = 8$ 

310 FOR 1 = 1 T0MN 

320 PRINT * CONSUM SPECIFIC PRODUS *;P4S(1); 
325 PRINT * DIN MATERIAL *;8% 

330 INPUT P(L,N) 


335 NEXT 1 
340 PRINT 
350 INPUT 
360 IF A$ 
370 PRINT 
380 INPUT 
390 IF A$ 
400 PRINT 
410 FOR 1 
420 PRINT 
430 NEXT 1 
440 GoTo i 


As 
- 
. 
A$ 
o 


Li 
o 


MAI PRIMITI MATERIAL (D/N) * 


“D* THEN 140 
DORITI VIZVALIZARE STOC (0/N) * 


"D* THEN 10 
VIZUALIZARE STOC MAGAZIE C&NTRALA 
1 TON 

(DD, “.0t1) 


450 PRINT * SE ELIBEREAZA MATERIAL LA MESE * 


MU PRINI 
470 INPUT 


s 


NATI NUMARU. MURI * 


4890 IF S <= O THEN 460 

490 IF Ss) Q THEN 460 

500 PRINT * DATI MAŢERIALUL SI CANTITATEA * 
$10 IMPUT B$(T0),X 


520 Y :0 


330 FOR 1 = 1 TON 
SR0 IF 8$ (> MS(1) THEN 370 
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350 Y-i 

560 i =N 

570 NEXT 1 

580 IF Y (> 0 THEN 610 

390 PRINT * NU EXISTA MATERIALUL IN MAGAZIE * 
600 G0T0 680 

610 0(Y) = 0(Y)-X 

620 IF O0(Y) >=0 THEN 660 

630 PRINT * NU EXISTA CANTITATEA IN MAGAZIE * 
640 0(Y) = 0(Y)+xX 

650 60T0 680 

660 REM * SE ADUNA LA STOCUL MESEI * 

670 A(s,Y) = A(S,Y)+xX 

680 PRINT * MAI ELIBERATI LA MASA *;sS;"* (D/N> 
690 INPUT A$ 

700 IF A$ = "D* THEN 500 

710 PRINT * ELIBERATI LA ALTA MASA? (D/N) * 
720 INPUT A$ 

730 IF AS = "D* THEN 460 

740 PRINT * VRETI VIZUALIZARE STOC MASA (D/N» 
750 INPUT A$ 

760 IF A9 = "*D* THEN 780 

770 GOTO 10 

780 PRINT * VIZUALIZARE STOC MASA * 

790 PRINT ” DATI NUMARUL MESEI * 

800 INPUT S 

810 IF $ <= O THEN 790 

920 IF S > Q THEN 790 

830 FOR | =1 TON 

840 PRINT * Ms(1),* ",A(S,l) 

850 NEXT | 

860 PRINT * MAI VIZUALIZATI STOC LA MASA (D/N> * 
870 G0T0 750 

880 PRINT * SE DAU REALIZARILE LA MESE * 

890 PRINT DATI NUMARUL MESEI * 

900 INPUT s 

910 IF Ş <= 0 THEN 890 

920 IF S > Q THEN 890 

925 MAT B(M> = ZER 

930 PRINT * DATI PRODUSUL SI NR.PROD.REALIZATE * 
940 INPUT B$(T0),x 

950 !Y =0 

960 FOR 1-1 T0M 

970 IF B$ <> P$(L) THEN W010 

980 Y +1 

990 B(1) x 

1000 1l=-M 

1010 NEXT 1 

1020 IF Y <> O THEN 1130 

1030 PRINT * PRODUS NOU? (0/M) * 

1040 INPUT A% 

1050 IF A$ <> *D* PHEN 1130 

1055 REM * SE ADAUGA UM PRODUS NOU * 

1060 H = M+1 

1070 PS(H) = 87 

1080 PRINT * DATI CONSUMURILE SPECIFICE PROD.NOU * 
1090 FOR 1 = 1 TON 

1100 PRINT Hs(1); 
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1110 INPUT P(H,I) 

1120 NEXT | 

1130 PRINT * MAI DATI REALIZARE? (0/N) 
1140 INPUT A% 

1150 1F'A$ = "D* THEN 930 

1155 MAT C(N) ZER 

1160 PRINT * DATI CONSUM MATERIALE LA MASA *;sS 
1180 INPUT B$(TO),X 

1190 Yy=0 

12Q0 FOR 1 = 1 TON 

1210 IF B5 <> Ms(1) THEN 1270 

1220 Y =1 5 

1230 IF A(P,I) < X TMEN 1260 

1240 Y =2 

1230 C(1) =xX 

1260 1 =N 

1270 NEXT | 

1280 IF Y = 2 THEN 1340 

1290 1F Y = 1 THEN 1320 

1300 PRINT * MATERIAL INEXISTENT + 
1310 GOTO 1340 

1320; PRINT * STOC INSUFICIENT * 

1340 PRINT * MAI DATI CONSUK? (D/N) * 
1350 INPUT A% 

1360 IF A$ = "D” THEN 1170 

1370 FOR 1 = 1 TON 

1380 A(sS,1) = A(S,L)-Ctl) 


1390 NEXT 1 

1400 HAT D = ZER 
1410 FOR 1 = 1T0M 
1420 FOR JJ =1T0N 


1430 D(J) = D(I)+B(LOP(I,LD 

1440 NEXT 3 

1450 NEXT 1 

1460 Y =0 

1470 FOR 1 = 1 TON 

1475 IF D(1) <= CUL) THEN 1500 

1480 PRINT * S-A DEPASIT CONSUHUL LA “;Hs(D; , 
1485 PRINT * MATERIAL CU *;C(I)-D(1) 

1490 Y =1 

1500 NEXT 1 

1510 IF Y = 1 THEN 10 

1520 PRINT * VAZI INCADRAT IN CONSUM SPECIFIC * 
1530 G0T0 10 

1540 STOP A 

1600 REM * CREARE FISIER STOC * 

1610 REM * SE CREEAZA LA MAXLH 100 MATERIALE * 
1615 REM * 20 PRODUSE SI 5 MESE * 

1620 DIW 0(100),B(20),€(100),D(100) 

1630 DIM A(5,100),P (20,100) 

1540 DIM P$(20,10),H$(100,10) 

1650 REM " SE INTRODUC S MATERIALE 2 PRODUSE * 
1655 REM * RESTUL SF INIRUDUC PRIN PROGRAM * 


1660 N=5 

1670 H=+2 

1680 a =5 

1690 MAT 0 = ZER 

1700 P$(1) = "PLAN INCL." 
1710 P$(2) = "MONOBLOC" 
1720 M$(1) = "CEARA" 

1730 M$(2) = "MASA AHBL.* 
1740 MH$(3) = "ALIAJ INOX* 
1750 Ms(4) = “GIPs* 

1760 MAT A = ZER 

+770 MAT P = ZER 

1780 REM ”" CONSUMURILE SPECIFICE * 
1790 FOR 1 = 1 T0M 

1800 POR J = 1 TON 

1810 READ P(1,J) 

1820 NEXT J 

1830 NEXT 1 


»835 REM * CONSUM SPECIFIC DUPA BAREH * 
1810 DATA S5,10,14,600,60 

1850 DATA 15,0,0,200,60 

1900 60T0 10 

2000 END 
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Programul poate fi utilizat ca model de referință pentru gestiunea stocu- 
rilor la magazii mici-medii, spaţiul de memorie ocupat de datele referitoare 
la magazie depinzînd în mare măsură de modul în care sînt codificate mate- 
rialele din stoc. Asocierea unui număr mare de date unui material dat va reduce 
numărul total de materiale ce pot îi cuprinse în tabelele de descriere a magaziei. 
Implicit, numărul maxim de materiale diferite nu poate fi mai mare de 254, 
deoarece interpretorul BASIC nu admite tablouri a căror dimensiune să fie 
mai mare de 254. 


! Pentrulprima lansare se utilizează comanda RUN 1600 care dimensionează 
matricile utilizate. Prin inițializare s-au introdus 5 materiale, 2 produse şi 
consumurile snerifi»e aferente. Prin program se mai introduc restul de materiale 
şi produse. După iniţializare programul se lansează cu comanda GOTOI0 
pentru anu inițializa masivele completate cu stocul magaziei centrale, respectiv 
cu stecul meselor de lucru. 


11.6. Balanța de verificare debit-credit 


Programul constituie un exemplu simplu de realizare a unei balanţe de 
verificare. La prima rulare, programul solicită introducerea numărului total 
de conturi și a numerelor de cont pentru care se vor face operaţiile de debit/ 
credit. Se introduce apoi. pentru fiecare număr de cont, debitele şi creditele 
pe luna în, jcurs. Se afișează apoi balanta de verificare pe subconturi ; ; la umple- 


„Do Fe Aaa i VMBREDR 


rea “orasului; “atişajul se opreşte, putînd fi reluat prin “apăsarea “unei taste 
oarecare. După afișarea balanței pe subconturi, se afişează balanta de verifi- 
care pe conturi, ! împreună cu totalurile debitoare, creditoare și pe conturi. 


JRulările următoare înu mai solicită introducerea numerelor de cont, ci 
doaridebitul ) Şi, creditul ra luna curentă, Verificările se fac începînd cu soldul 
lunii “precedente. Pentru a nu distruge masivul cu soldul lunii precedente, 
lânsarea ulterioară a a programului se realizează cu comanda GOTO 100. 


VEZI AG API E IN 10 PRINT " BALANTA DE VERIFICARE ” 
20 PRINT * DATI NR.TOTAL DE CONTURI * 
30 INPUT N 
40 DIM K(N),C(ND,D(N) 

SO DIM R(N),B(N),S(N) 

60 MAT C = ZER 

70 HAT D = ZER 

80 PRINT * INTRODUCETI CONTURILE * 
90 MAT INPUT K 

100 PRINT * INTRODUCETI CREDIT/DEBIT * 
105 PRINT * LUNA CURENTA « 

110 FOR 1 = 1 TON 

120 PRINT K(1);*2* 

130 PRLAT “DB:*; 

140 INPUT B(1) 

150 PRINT "CR:"; 

160 INPUT R(I) 

170 NEXT 1 
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180 FOR'1 * | TON 

190 C(I) = C(LeRtI) 

200 B(1) = D(ldeBil) 

210 S(1) = Dero» 

220 NEXT 1 

230 INIT P 

240 PRINT AT(1,1);* BALANTA DE VERIFICARE 
245 B$ = INKEY% 

250 U = 3 

260 FOR 1 = 1 TON 

270 PRINT AT(U,1);K(LD,Stl) 

280 U = Ut 

290 IF U < 31 THEN 350 

300 As = INKEY% 

310 1F AS = B$ THEN 300 

320 u=3 

330 INIT P 

340 PRINT AT(1.1);* BALANTA DE VFRIFICARE 
350 NEXT | 

360 AS : INKEY9% 

370 '1F AS = B% THEN 360 

380 7 = su 

390 MW a INT(K(1)/1000) 

400 INIT P 

410 PRINT AT(1,1),* TOTAL CONT 

420 U =: 3 

430 FOR | + 2TO0N 

440 1F M <> INT(K(1)/1000) FHEN 470 
450 T = Test) 

460 GOro 570 

470 PRINT" AT(U,1);M,T 

480 M  INT(K(1)/1000) 

490 T + st» 

S00 U = U+1 

510 IF U < 31 THEN 570 

520 A$ = INKEY$ 

530 IF A% =: 8% THEN 520 

SAo U : 3 

Ş50 INIT P 

360 PRINT AT(1,1);* TOTAL CONT * 
$70 NEXT | 

580 PRINT ATLU,19;M,T 

610 A$  INKEYS 

620 IF A$ = 8% THEN 610 

630 INIT P 

640 PRINT AT(1,1);* TOTAL BALANTA * 
s50 41:00 

660 U:0 

670 0:90 

680 FOR 1-1 TON 

690 M = Mecir> 

700 U = U+D(I) 

710 0 = 0+st1) 

720 NEXT | 

730 PRINT AT(3,.); “TOTAL 08: * 
740 PRINT AT(5,1); TOTAL CR: * 
750 PRINT AT(7,1):"BALANTA : * 
760 ŞTOP 


v 
;M 
î0 


11.7. Transformarea stea-triunghi şi reciproc 


Programul determină rezistenţele echivalente celor două transformări 
după formulele : 


T12 Ta +Ta+ A ză 
a) Ta3 =Ta-t-s+ ta (transformarea stea-triunghi) 
Ts-Ta 


Tau SraFr-t 22 
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Tk—T : : 
T4 = ————— (transformarea triunghi-stea 
b) - Tis FT uta ( 8 ) 


10 PRINT * CALCUL REZISTENTE ECHIVALENTE * 
20 PRINT * î1= SCHEMA ELECTRICA STEA IN TRIUNGHI * 
25 PRINT * 2= SCHEMA ELECTRICA TRIUNGHI IN STEA * 


30 INPUT X 

40 IF X = 1 THEN 210 

SO PRINT * SCHEMA ELECTRICA TRIUNGHI IN STEA * 
60 PRINT * DATI REZISTENTELE IN TRIUNGHI * 

70 PRINT * RI2=*; 

80 INPUT A 

90 PRINT * R23 =“; 

100 INPUT B 

110 PRINT * R3L ="; 

120 INPUT c 


130 S = A+B+c 

140 D = (A*C)/S 

150 E = (B*A)/3 

160 F = (C*B8)/s 

170 PRINT * R1 = “;D 
180 PRINT * R2 = ";E 
190 PRINT * R3 = *;F 


200 SroP 

210 PRINT * SHEMA ELECTRICA STEA IN TRIUNGHI * 
215 PRINT * DATI REZISTENTELE IN STEA * 

220 PRINT * Rl ="; 

230 INPUT D 

240 PRINT * R2 =*; 

250 INPUT E 

260 PRINT * R3 ="; 

270 INPUT F 


280 A = DrE+(D*E)/F 
290 B = E+Fr(Ex*F)/D 
300 C = F+D+(F*D)/E 
310 PRINT * R12 = ";A 
320 PRINT " R23 = ";B 
330 PRINT * R3L = "Cc 
340 sToe 

350 END 


Se solicită prin dialog tipul transformării şi valorile rezistenţelor corespun- 
zătoare. Se afișează valorile rezistenţelor echivalente. 


11.8. Dimensionarea liniilor de alimentare în curent continuu 


Se consideră un conductor de cupru cuplat la o sursă de curent continuu. 
De la acest conductor sînt alimentaţi mai mulţi consumatori, fiecare avind 
un consum Pi și o distanță Li de la sursa de alimentare. Secţiunea conductoru- 
lui se deduce pe baza formulei : 


2. 100 
s= RUSU ho sa ch 
unde : 


Y= A este conductivitatea conductorului 

AU% este căderea de tensiune maxim admisă 

U este tensiunea nominală 

p este puterea absorbită de fiecare consumator 

IL este distanța consumatorului față de sursa de alimentare. 
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109 PRINT * CALCULUL LINIEI CONDUCTOARE * 
15 PRINT * DE CURENT CONTINUU Sua » 

20 PRINT * TENSIUNE DE 220 V,DIN CUPRU * 
ŞO PRINT * DATI NUMARUL DE CONSUHATORI * 
40 INPUT N 

90 PRINT " 0ATI DiSTANTaUB DE LA SURSA * 


SS PRINT * IN METRI 

60 DIM LN» 

70 MAT INPUT L 

80 PRINT * DATI CONSUMURILE * 
S3 PRINT * IN UATI «* 

90 "DIM C(N) 

100 MAT INPUT C 

110 -s=0 

120 FOR | = 1 TON 

130 S$ = SecitomLil) 

140 NEXT 1 

150 $ = Sw2*100/(33*5x220*2) 
160 PRINT * $ » *;S;* Mea * 
170 STOP 

180 END 


Se solicită prin dialog numărul de consumatori, distanţele de sursă şi 
consumurile fiecăruia. Se afișează valoarea secțiunii, considerînd sursa de ali- 
mentare de 220 Ve.c. şi prinderea maximă de tensiune < 3% din tensiunea 
nominală. 


11.9. Determinarea greutăţii materialelor ce intră 
în componenţa unui corp eterogen 


Se consideră un corp compus din două materiale. Fie G creutatea acestui 
corp, cîntărit în aer, şi Ga greutatea sa, cîntărit în apă. Fie pu densitatea apei, 
pi densitatea primului material şi p2 densitatea celui de-al doilea material. 
Rezultă : 


i A [G1 = be (ee) Sti greutatea primului material 
ii i a (2 1 


G2 = Piba (GG) —Gpapa greutatea celui de-al doilea material. 
Pa (P1—P2) 


Şe introduc prin dialog valorile celor două greutăți, precum și densitățile 
fiecărei componente. Se afişează ca rezultat greutatea fiecărei componente. 


10 PRINT " GREUTATEA MATERIALELOR COMPONENTE * 
20 PRINT " ALE UNUI CORP HETEROGEN * 

30 PRINT ” DATI GREUTATEA CORPULUI IN AER * 
40 INPUT G1 

SO PRINT ” DATI GREUTATEA CORPULUI IN APA * 
60  INPUr 62 

70 PRINT * DATI DENSITATEA MAT. COMPONENTE * 
80 INPUT RI1,R2 

90 REM * DENSITATEA APEI = 1 * 

100 R3 = 1 

110 V1 = (RI*R2*(G1-62)-G1R3%*R1)/(R3%(R2-R1)) 
120 v2 = ARINR2MAUGi G2)=G1*R3*R2)/(R3*(R1-R2)) 
130 PRINT CORPUL DE ";61;" GREUTATE * 

140 PRINT * CONTINE ";V1;" DIN MATERIAL ";RI; 
145 PRINT * DENSITATE " 

150 PRINT * CONTINE ":V2, DIN MATERIAL *;R2; 
155 PRINT DENSITATE * 

160 sroP 

170 END 
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11.10. Dimensionarea grinzilor de beton armat 


Programul determină înălțimea utilă şi aria armăturii unei grinzi de beton 
armat, pe baza formulelor : 


m 
tipa 1:79 
Vit-3) 
Ra m 


unde : 
hg este înălțimea utilă ; 
a este aria armăturii; 
m este momentul de încovoiere 
| este lăţimea grinzii 
ra este rezistenţa armăturii 
rb este rezistența betonului 
£ este tactor limită=—0,6 
Se introduc prin dialog valorile pantru ra, rb, 1 și m. Se afişează valorile 
înălțimii utile şi ale ariei armăturii. 
10 PRINT " DIHENSIONARE GRINDA DE BETON ARMAT * 
20 REM ” SE CONSIDERA C S | LIMITA : 0.6" 
30 P = 0.6 
40 PRINT * REZISTENTA ARMATURII IN KGF/CM"2 * 


So INPUT A 
REZISTENTA BETONULUI IN KGF/CH*2 * 


c 
80 PRINT * LATIMEA GRINZII IN CH * 

B 

“ MOMENTUL INCOVOIETOR IN KGF.CH * 
M 


140 R = 1/SAR(S) 
= R*SOR(M/(B*C)> 
160 Z = H/(A*H*T) 
170 REM * INALTIMEA UTILA * 
180 PRINŢ.."H0 x." GM, 
190 PRINT "ARIA ARMATURII * *;2;* CM*2 * 
200 sTop 
210 END 


11,11. Calculul! secțiunii elementelor de construcţie 


Programul determină caracteristicile principale ale diafragmelor uiili- 
zate în construcţii, pornind de la descompunerea secțiunii diafragmei în drept- 
unghiuri elementare. Se solicită ca date inițiale numărul de dreptunghiuri 
elementare ce compun secțiunea, precum și dimensiunile unui asemenea drept- 
unghi. Se afişează drept rezultat : 

— aria secţiunii diafragmei ; 

— momentul de inerție ; 

— coordonatele centrului de greutate. 
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10 PRINT * CALCULUL SECTIUNII ELEMENTELOR * 
15 PRINT * DE CONSTRUCTII * 

20 PRINT * DATI NR.DREPTUNGHIURI ELEMENTARE * 
30 INPUT 
40 Din BeND,HND> 

SO PRINT * DATI LATIMEA,INALTIMEA (N CH * 
60 FOR Jai TON 

70 INPUT B(J) 

80  INPUȚ H(J) 


90 NEXT J 

100 D=0 

10H=0 

120 A=0 

130 1 =0 

140 FOR JI = 1 TON 

150 K = B(J)mH(J) 

160 L = H+H(J)/2 

170 D = (AXD+KXLI/(ACR) 
180 A = A+k 

190 1 = I1+(H(3)*93%B49))/12 
200 H = H(J)+H 

210 NEXT J 

220 H=0 

230 FOR 3 = 1 TON 

240 L = HrH(J9/2 

250 1 = 1+B(J)xH(J)w(L-D)*2 
260 H = H+H(J) 

270 NEXT J 


280 PRINT “ARIA = “;A;”* CW*2 * 

290 PRINT "MOMENT „INERTIE = *;lș* CH*4 * 
300 PRINT “HS = *;D0;" CH e 

310 PRINT "HD = "tH-D;* CH * 

320 sToP 

330 END 


11.12. Determinarea momentelor de încastrare perfectă ale 
unei grinzi de beton armat 


Se consideră o grindă de beton supusă atît unei forţe uniform distribuite, 
cît şi unui număr oarecare de forţe concentrate. Se determină valoarea momen- 
tului de încastrare stînga și dreapta. Programul solicită ca date iniţiale : lungimea 
grinzii, valoarea forţei uniform distribuite, numărul total de forțe concentrate 
iar pentru fiecare forţă concentrată, valoarea ei și distanța faţă de limita stîngă 
a grinzii. Se determină valorile celor 2 momente de încastrare și se afişează. 


10 PRINT * MOMENT DE INCASTRARE PERFECTA * 

20 PRINT “ LUNGIMEA GRINZII INM " 

30 INPUT L 

40 PRINT * FORTA UNIFORM DISTRIBUITA IN KGF/H * 
SO INPUT P 

60 T = PxL*2/12 

O Pt 

80 PRINT " NR.-UL FORTELOR CONCENTRATE * 

90 INPUT N 

100 IF N = 0 THEN 280 

110 DIM F(N),X(N) 

120 PRINT * MARIMILE SI DISTANTELE FORTELOR * 
125 PRINT ” CONCENTRATE FATA DE STINGA GRINZII * 
130 FOR J = 1 TON 

140 INPUT F(J) 

150 INPUT X(J) 

160 IF X(J) > L THEN 290 

170 NEXT J 

180 FOR J = 1T0N 

190 A1 = X(J)/L 

200 A2 = 1-A1 

210 V = AL*A2"2xF(J)uL 

220 T = T+V 

230 V = A1*2x*A2*F(J)*u 

240 R = R+V 

250 NEXT J 

260 PRINT "MST = *;T;* KGF.M * 
270 PRINT "HDR = “;R;" KGF.H * 
280 SToP 

290 PRINT * ABSCISA GRESITA * 
300 sToP 

310 END 


Optimizarea consumului de îngrășăminte chimice în agricuitusă 


11.13. Optimizarea consumului de îngrășăminte chimice 


in agricultură 


2% 


Se pornește de la funcţiile de producţie pentru terenuri irigate şi nairigate + 


Yumi 


a =Koaot KaasdN—KezazdN? 


Ynarma =aoțrasAN—a2AN? 


unde 
15 este doza de 


îngrăşămînt la hectar 


a, sînt parametrii funcţiei de producţie 


K, sînt coeficien 


10 PRINT * CONSUMUL DE INGRASAMINTE 

20 PRINT * CHIMICE IN AGRONOMIE * 

30 PRINT * DATI PARAHETRII AO,AL1,A2 

3S PRINT * A FUNCTIEI DE PRODUCȚIE * 

40 INPUT AO,A1,A2 

SO PRINT * DATI COEFICIENTII RO,KI,k2 * 
SS PRINT * DE MULTIPLICARE * 

60 INPUT KO,KI,R2 

70 Ni = A1/(2*ABS(A2)) 

60  N2 » KIxA1/(2*K2xABS(A2)» 

90 N = N2-NI 

100 INITP 

1410 PRINT AT(1,12p* FUNCTIA DE PRODUCTIE 
120 PRINT AT(5,1);* Y(NEIRIG) = *; 

125 PRINT A0;*r+";A1;"xDN";A2; *xDN*2* 

T30 PRINT AT(7,1);* YeIRIGAT) = *; 

135 PRINT KOxAO; "+" ;kRIinA1 i; "xDN";R2NA2; *MDN*2» 
140 PRINT AT(9,1);* DOZA MAXIMA DE NEIRIG = *; 
145 PRINT Ni 

150 PRINT AT(11,1);* DOZA MAXIMA IRIGAT e *; 
155 PRINT N2 

160 PRINT AT (13,1);* DIFERENTA + “:N 

170 Yi = AO+AI»NI-A2x*(N1*2) 

1 Y2 = KOxAO+KI*Al*N2-K2*A2*(N2*2) 

190 Y > Y2-Y1 

200 PRINT AT(15,1);* MAXIM TEHNIC NEIRIG « 
203 PRINT Yi 

210 PRINT AT(17,1);* MAXIH TEHNIC IRIGAT » 
213 PRINT Y2 

230 PRINT AT(19,1);” DIFERENTA e *;Y 

230 X1 » Y1-A0 

240 X2 = Y2-KORAO 

250 X » X2-X1 

260 PRINT AT(22,1);* SPORUL MAXIH NEIRIG = * 
265 PRINT X1 

270 PRINT AT(23,1);* SPORUL MAXIH IRIGAT - * 
275 PRINT X2 

280 As, INKEY $ 

290 IF A9 = * * THEN 280 

300 JNITP 

310 VINDOU -10,N2+30,-10,Y2+10 

320 HOVE -10,0 

330 DRAU N2+30,0 

340 Hove 0,10 

150 DRAU 0,Y2+10 

360 FOR 1=2$3 TO 2SmINT((N2+30)/29) STEP 23 
370 HOVE 1*,-S0 

380 DRAU 1,50 

390 NEXT 1 

400 0 = INT((Y2+102/1000) 

405 FOR 1=1000 TO LO0OxINTI(Y2*Q) STEP 1000 
410 MOVE -50,1 

420 DRAU 50,1 

430 NEXT 1 

440 n + 80 

850 B = A 

460 (= A2 

480 FOR K= 1 T02 


ți de multiplicare 


t — EBtorsealeulaterul personal aMIG — vol. II 
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490 MOVE 0,0 
S00 FOR I=10 TO L1O*INT((N2+30)/10) STEP !0 
510 Y = A+BeI-Crl*2 

520 DRAU 1,Y 

530 NEXT 1 

540 A = KOxAO 

550 8 = Kimal 

560 C = K2mA2 

570 NEXT K 

580 MOVE N1,0 

590 DRAU NI,Y1 

600 MOVE N2,0 

610 DRAU N2,Y2 

630 As = INKEYS 

640 IF AS = " » THEN 630 
650 REM ** CITIRE CONSTANTE * 
660 READ A,B,C,D,E,F 

670 INITP 

&80 DIM H(10,2) 

690 MAT M = ZER 

700 2 = 10 

800 x = 0 

810 UINDOU -10,300, -30, 10000 
820 MOVE -10,0 

880 DRAU 300,0 

840 HOVE 0,-10 

850 DRAU 0,10000 

860 FOR 1 = 1 TO 180 STEP 25 
870 HOVE 1, -S0 

880 DRAU 1,50 

890 NEXT 1 

900 FOR 1=1000 TO 8000 STEP 1000 
910 HOVE -S0,1 

920 DRAU 50,1 

930 NEXT | 

940 FOR Z = 10 TO 100 STEP 10 
950 X 10 

960 GOSUB 2000 

970 U = 2/10 

980 HOVE X,Y 

990 MUU,1) = x 

1000 M(U,2) = Y 

1010 FOR X = 10 TO 180 STEP 10 
1020 G0SUB 2000 

1030 DRAU X,Y 

1040 1F Y < H(U,2) THEN 1070 
1050 M(U,1) = x 

1060 M(U,2) = Y 

1070 NEXT X 

1080 M(Z,10) = N 

1090 NEXT 2 

1100 MOVE M(1,1),H(1,2) 

1110 FOR 1 s 2 T0 10 

1120 DRAU H(1,1),M(1,2) 

1130 NEXT 1 

1140 STOP 

2000 Q = Ax(Z*D) 


2010 V = Bu(Z*B)xxX 
2020 UV = C*(Z*F)n(X*2) 
2030 Y = Q+v-u 
2040 RETURN 
2050 DATA 36,1,17.11,0.796 
2060 DATA 1.1087,0.11858,-0.60899 
2070 END 
Be determină doza maximă de îngrășămînt pentru teren neirigat şi teren 
irigat. Se determină apoi maximul tehnic de producţie şi sporul maximi în cele 
două condiții de lucru. SA za 
Se vizualizează graficul funcţiilor de producţie în condiţiile de irigare 
şi neirigare (ccoord. x=—doze de îngrășămînt în kg/ha ; coord. y producţia 
medie în kg/ha). Particularizind pentru funcţiile de producţie caracteristice cul- 


turilor de grîu, avem (vezi liniile 2050 şi 2060 din program): 
Y =36,1 NB11087_4.17,11 NB0,11858 AN—0,796 NB=0.0098, AN? 


În baza acestei formule se trasează graficul producţiilor medii de griu, 
în funcţie de notele de bonitare ale terenului agricol. 
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Modificarea liniilor 2050, 2060 permite calculul funcţiei de producție 
pentru alte tipuri de culturi. 


11.14. Calculul volumului rezervorului de compensație 
pentru reţeaua de apă potabilă 


Variația consumului de apă pe parcursul unei zile se determină în baza 
debitului înregistrat la fiecare oră. Considerăm că alimentarea de la rețeaua 
de apă se face cu un debit mediu constant ; în acest caz, rezervorul de compen- 
saţie va trebui să acumuleze apa necesară consumului în orele de vîrf. 

Programul solicită mai întîi introducerea valorilor celor 24 de 
debite orare. Se determină apoi debitul mediu, pe baza formulei: 


Rezultă volumul rezervorului de compensație : 
2 
Vr= 3 (Di—Dm)*((SGN (Di—Dm)+1)/2) 
i=l 


Be afișează consumul mediu şi volumul rezervorului de compensație. 


10 PRINT " REZERVORUL DE COMPENSATIE * 
20 DIM D(24) 
30 PRINT * DATI CONSUHURILE PE ORE * 
40 MAT INPUT D 

x 


E 
60 FOR 1 = 1 TO 24 


110 FOR 1 = 171702 

120 IF (D(1)-X) <a % THEN 140 

130 V = V+(D(1)-X) 

140 NEXT 1 

150 PRINT ” CONSUM MEDIU *;xX 

160 PRINT " VOLUMUL REZERVORULUI *:V 
170 STOP 

180 END 


11.15. Studiul unui filtru „trece-jos“ 


Fiind dat filtrul RC „trece-jos“ din figura 11.3, ecuaţia va fi 
U, (t)=U2(t)+RC-A. 
Ecuația poate fi aproximată cu : 


U, (n) =Uz (0)+ 17 C [Us (n)—Uz (n—1)] 


unde RG/At=T este constanta de î. normată a filtrului. Rezultă relaţia 
de recurenţă £ 


aa (n) 


Uz (n) = if pda U2 (n—1) 


IT 
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Fig. 11.3. Filtru RC „trece-jos“, 


Forma semnalului de intrare este definită în cadrul programului. în liniile 
150—180, obţinîndu-se la ieșire un semnal ca în figura 11.4. Programul solicită 
introducerea constantei de timp normate şi a valorii iniţiale a semnalului de 
ieşire U,. Se trasează graficul suprapus a celor două semnale, obţinindu-se 
diferite forme ale semnalului U2 în funcţie de constanta de timp 7; regimul 
tranzitoriu poate fi observat cu ușurință pe grafic. 


10 PRINT * STIIDIUL PILTRULUL e 

20 PRINT * DATI CARACTERISTICA 7 * 

30 INPUT 1 

40 PRINT * DATI VALOAREA INITIALA U2 * 
SO INPUT V2 

60 INITP 

70 WINDOW =10,50,-1,2 

80 HOVE -10,0 

90  DRAU 50,0 

100 HOVE 0,-1 

110 DRAU 0,2 

120 vi =1 

130 MOVE O,Ut 

140 FOR X = 1 T0 So 

150 1F SGN(X-INT(X/10)410-5 <= 0 THEN 180 
160 Vi =0 | 


, 
210 V2 = Ut /(î+T)+(T/(1+T))xU2 
220 DRAW X,Uu2 

230 H0VE X,U1 

240 NEXT X 


Fig. 11.4. Semnalul la ieşirea filtrului „trece-jos”, 


11.16. Calculul salinității unui canal de ecluză 


Programele rezolvă determinarea salinităţii apei într-un canal de eclusă 
ce leagă două ape cu salinităţi diferite. Se introduc datele iniţiale și în diferite 
ipoteze de lucru se obține numărul de ecluzări necesare. 
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S$ PRINT “PRSRMI1" 

10 REh.CALCULUL SALÂNITATII CANALULUI” 
35 REM "IPOTEZA 1 = DIFERENŢA Va 0* 
20 REM "CITIRE DATE INITIALE» 

36 READ CiCarC3DoHirH2rArVe€ 

35 REHN PCALCUL COEFICIENII” 

29 Disb/v 

$9 DasD/(AmHt) 

69 D3sD/(Ae(Hi+H2)) 

65 REM "CCHSTANTE" 

70 X5i-D3 

89 Y=i=va2 

90 231/(X=r) 

95 REM SALINITATE ADMISA SA Se 8* 
199 A=Ctet1+2)+C2/X+C3e(ie03aY)az 
110 B=(C3eCaeCin(DanCa2+03aYeC3) az 
120 K=A/2 

159 O=Kek=B 

22u Szk=SoR(D) 

225 REM "SALINITAȚE INITIALA SA Se Me 
230 WsDanCaeSnxaY+D3eYaC3 

239 REM AVINCIMEA REMANENȚAn 

24 HzXe(Seci)/(Ca=ct) 

245 REM “VARIATIA SALINITATII” 

254 N=0 

260 I=C1 

270 WaCc1 

289 NzN+1 

290 VsHacl=i)/Xen 

390 I=DasCa-DonYa(Veh)evat 

310 H=DievecdieDi)ani 

315 REM "VERIFICARE LIMITENe 

326 IP I>=MoE THEN 36 

330 IF V>=S<E THEN 560 

340 IF wW>=C3vE THEN 309 

350 GOTOa280 

36 PRINT " NUMARUL DE ECLUZARI "iN 
370 sToP 

375 REM "DATE INITIALE" 

380 DATA v.15,17p0,5 

390 DATA ci0ot,70,9 

400 DATA B000,36,dE6 

U10 DATA 0.21 

3060 END 


$ PRINŢ “PRGRmua2n 

10 REM "CALCULUL 3ALINITȚATII CANALULUIE 
15 REM “IPOIEZA 2 = DIFERENTA V > 0" 
29 REM "CITIRE DATE INITIALL* 

30 READ CieCasCseDentle 2 AeVhevasE 
35 REW "CALCUL COEFICIENŢII” 

49 DiaD/vi 

50 D23D/(AaH1) 

69 0320/(An(Hi+H2)) 

65 Danva/vi 

70 DS=(1eDadetl=vu) 

72 REM *SALANITATE ADMISA SA Sa 9* 
75 Sz((aeD5)ac3oDunCi9/(Diti=Da)) 

60 SisDa4C2+3a (l-a) (1=D3)+D3(1eDa)ac3 
90 Ra((im05)a(in03)a(C3eC19))/(Din(leDa)a(Caeci)» 
95 REM "VARIATIA SALINITAIII» 

190 N=0 

110 1=c2 

120 niz=ci 

125 Wazsci 

130 N=N+i 

140 V=Ra(I=a2)/(1=03)+n2 

150 I=D2ate-D3a(inDa)a(Ven2)+vat eve) 
160 Wa=ti=Da)aDiayeDSenyeDănLa 

179 WIsDinVeciabi)an2 

175 REM P VERIFICARE LIHITE* 

184 IF N<i0n THEN 130 

185 IF ]>=Si=E THEN 220 

190 IF v>=9=E THEN 226 

200 IF wa»eC3=€ THEN e20 

205 GOTO 130 

210 REM "AJUNS LIMITA" 

220 PRINT HeleVeh 

230 stop 

290 REM "DATE INIȚIALE” 

399 DATA 0,15Sri?ed.5 

310 DATA 21020,7,9 

320 DATA 8000, 30e0E6,12,0€8 

330 DATA v.0i 

349 END 
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S PRINT "PRGRM.3" 

10 REM "DISTRIBUTIA SALINITATIT IN CANAL* 
15 REM "IPOTEZA 1 = DIFERENTA Ve 0" 
29 REM "CITIRE DATE INITIALE» 

30 READ Ci,Ca,C3,DeHieH2eAs Vale Te VI,E,NI,N2 
35 REM "CALCUL COEFICIENȚI" 

49 DinD/v 

45 D2=D/(AnsHi) 

50 D3=D/(An(H1+H2)) 

55 DâsL/vi 

60 Dbabq/T 

65 DIM k(250),L(250) 

70 Ysi=Da 

80 X:1-03 

90 Z=1/(Xer) 

95 REM "SALINITATEA AOMISA ÎN SA Sa 92 
100 AsCin(1+2)+C2/X+C3% (1=D3eY)az 

110 B=(C3eca-Cia(DaaC2+D3myac3) ez 

le? uzA/a 

130 Mausu=a 

200 S=U=9aR(mM) 

220 REM "SALINITATEA INITIALA SA Be m» 
230 MsDanCa+Snxay+D3eraC3 

235 REM "ADINCIMEA REMANENTA = H” 

240 Haxac3ati)/(Ca=cti) 

245 REM "VARIATIA SALINITATII" 

250 J=i 

260 lay 

270 HAT K=ZER 

280 HAT Ls=zER 

290 Iaca 

300 W=ci 

310 Nate 

320 VsHe(len)/Xen 

330 laDanta=D3eYa(Vew) eva 

340 șiaDinVeli=Di)eu 

350 IF N<N4 THEN 319 

360 K(I)ay 

370 L(J)zn 

380 J=J+i 

390 IF Je=D5 THEN 310 

400 wsL(i 

410 uzu 

420 FOR J=2 T0 05 

430 HzL(J=1)e(D/(Va(DSeJei)) dak (dd) 
440 IF M<u IEN 455 


459 Uau Li 

455 ua) 

We EXT J 

465 REM "TIPARIRE VARIATIA MAXIMA 
470 PRINT U 


475 REM "VERIFICARE LIMITA 
480 IF U>C3=E THEN 510 
490 WizNi+N2 

500 GOTO 25u 

510 STOP 

590 REM "DATE INITIALEX 
650 DATA 0,15,17,6,5 
510 DATA 21000,7,9 

ta DATA b000,36,0E6 
&30 DATA 576000,3600,1 
640 DATA 9,01,420,100 
650 END PR 


11.17. Calculul hidraulic al ecluzelor 


Programele determină caracteristicile hidraulice principale ale unei eclu- 
ze, funcţie de condiţiile de evacuare a apei. 


Calculul hidraulic al ecluzelor 


S$ PRINT "PPORMS* 

30 REM "CALCULUL HIDRAULIC AL ECLUZELOR* 
15 REM EVACUARE IN BIEF. AVAL" 
20 REM "CITIRE DATE INITIALE» 
30 READ A3,H,AL,CieRieTIpA2,C2,R2,T2,V,E 
35 D=H 

ao I1=0 

45 T=0 

se 1320 

S5 1520 

64 J=29 

69 L=0 

70 B=SQP(229,81) 

75 ua=c? 

80 N=(A7/A3)eSeJ 

95 uUzcAz/A3)aBa) 

90 u1z0 

95 p=0 

100 2=0 

130 I=I+i 

140 TeTeJ 

150 IF T>Ri THEN 219 

166 MelaJaCi/Ri 

170 Uis(LeM)/2 

180 L=M 

190 GOSUB ace 

200 GUTU 130 

„210 IF T3<>0 THEN 250 

220 Ui=ci 

230 GOSub ave 

„240 GUTU 13» 

250 L=Ce 

2bv TusT3+te 

27w Ms(TastnJ)aC2/Ta 

280 Uoz(LeM)/e 

285 I=1+i 

290 T=1+J 

295 1F T>1a THEN 520 

300 L=M 

305 GUSUE 490 

310 GUTO 272 

329 u=0 

330 k=30F(J)=CteAtaba (1eJ=79)/(arâ3) 
350 03=CinALnie3SO0R(H) 

345 DDP 

350 PRINT I,03su 

"3600 Îsi 

370 T=TeJ 

360 IF 0>E THEN 330 

390 STo» 

305 RE "SUbPROGRAM CALCUL ITERATIV SARCINA” 
400 RzNeUiaSuh(u=P/2)nUcesUR (ne (DsP/2). 
uj0 IF AB3thop)eze THEN 4u9 
“429 P=R 

432 GOTU uov 

440 PsR 

„4u5 REM "DIFERENTA DE SARCINA 
450 D=D=k 

455 REM "ocalT AFLUENȚI 

det gezuzehcro=SGk(H=U) 

465 REM "DEUIT EFLUENT* 

470 Q3zUleAlebesQR(D) 

475 REM “vULUMUL EVACUAT 

089 X=(01+h2)/2 

499 xaxaJ 

495 REM "SARCINA ECLUZA» 


Soo zsz2+X 

S1g PRINT 1,Z,02,Q03,C2,D 
520 Qizua 

530 IF zZez 9,9«V THEN 556 
Sup-T3=i 

550 RETURN 

555 REM "DATE INITIALA" 
esp DATA 2009,1.75 

610 DATA 6,41,9,5,180,120 
620 DATA 8,75,9.65,360,120 
"630 DATA L10c9,0,91 

“ue END 
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SPRINT" PRGORHo* 

10 REM "CALCUL HIDRAULIC AL ECLUZEI» 
15 REM "EVACUARE IN BIEF AVAL" 
20 REM PCUNDITIE STATIONARE 3 A 8* 
25 REM "CITIRE DATE INITIALE» 
30 READ Ade AleCieRieTieA2,Ca,vet 
30 Dan 

45. [ao 

59 fas 

55 Tao 

60 T5=0 

45 J=20 

70 L=0 

75 B=SAR(2x9,51) 

80 ua2=c2 

85 Nz(A1/AD)etaJ 

94 Dz(A2/A3)eBeJ 

99 0129 

120 P=0 

105 Z=0 

139 Iele! 

140 T=T+J 

150 IF T>R41 THEN 210 

160 M=IxJaC1/R1 

170 Uiz(L+eh)/e 

189 L=M 

199 S0Sub uoo 

206 G0TO135 

210 WizCi 

215 uzh 

229 C=03=02 

230 T3=T 

240 R=NeCin3UR(u=P/2)=OnCeRSak (te (-P/239 
259 D=D=R 

260 Q3zCIsAlainSGR(D) 

279 K=(003=C)/(AzeBeSaR (H-0)) 
289 Ca=K 

290 P=R 

300 IF ABS(H=P)>E THEN 2490 

310 GOSUB uuo 

320 IzI+i 

330 T=I+J 

340 IF L2>F THEN 240 

350 Uz 

355 R=BUR(UD=CimA Laba (IaJeT3)/ (2x43) 
360 Q3=CimAle3aSOR(R) 

365 Dz0=R 

370 PRINT 1,03,0 

375 Il 

3890 T=TeJ 

385 LF U>E THEN 355 

399 stup 

395 REM "SUBPRUGRAM CALCUL ITERATIV SARCINA? 
409 R=NaUIn3OR (VP /2)=OaU2xS30R(he(D-P/2)) 
410 IF ADy(a=p)ezE THEN 449 
420 P=R 

430 VOT0490 

A40 P=R 

GuS REM "DIFERENTA DE SARCINA? 
450 Dz=D=R 

455 REM "DEBIT AFLUENTR 

4690 uazuawAanbAaSOR(H=0) 

465 REM "DEBIT EFLUENȚI 

470 Q3=U4sALleă+*S0R(D) 

475 REM "VOLUMUL EVACUAT* 

489 X=(04+02)/2 

499 xaxnJ 

495 REM "SARCINA ECLUZA» 

599 7=7+%X 

510 PRINT I1,Z,02,U3,C2,0 

520 Q1=q2 

930 RETURI 
590 REM "DATE INIȚIALE» 

eo DATA 2900,1.75 
810 DATA 6.d1p0.5,180,129 
620 DATA 8.75,0.65 
630 DATA 14200004 
649 END 


SPRINT *' PROGRAM?" 

19 REM "CALCUL HIDRAULIC AL ECLUZEI» 
5 REM "EVACUARE IN BAZIN SUBTERAN» 
29 REM “CITIRE DATE INITIALE» 

38 READ A3eriteHa,ZeHeSsCaAteCIRieTisAa, Ca, Ra, T2eVeE 
35 REM "INITIALIZARI” 

49 Di=Hj 

41 In0 

45 Tao 

59 T3=6 

55 1550 

49 Jz20 

65 Lz0 

70 BaSOR(2e0,81) 

75 X=p 

Do Na(AL/AS)nBaJ 

85 Os(A2/A3)aBaJ 

90 Qiz0 

95 Pz0 

100 Mi=Hi+h2+z 

195 Fa 

110 Da=Ha2 

115 2=9 

130 Isle 

135 T=T+J 

100 IF T>R4 THEN 200 

145 MelaJaC1/R4 

150 Via(L+m)/a 

155 L=u 

160 IF 1>R2 THEN 196 

165 YaIuJsC2/R2 

170 V2=(X+Y)/a 

175 X=y 

180 GOSUB 490 

185 GOTO13£ 

190 ua=ca 

195 GOTO18» 

200 IF T3<>0 THEN 230 

295 Uizci 

210 Vazca 

215 GOSUB 809 

220 G0T0130 

230 X=ca 

235 Tuz13+T2 

240 y=(TuslnJ)aca/Ta 

245 VaztkrY)/e 

259 [si+i 

255 TeT+J 

260 IF [>Tu THEN 289 

265 X=Y 

270 GOSUB 06 

275 GOTOa4d 

200 V=01 

290 R=SUR(U)eCisAlaBe(IaJ=T4)/(onA3) 
300 Q3=CinâimBaSUR(R) 

310 Di=Di=n 

320 PRINT 1,93,01 

339 Iz1+1 

340 T=TeJ , 

350 1F D1>E THEN 299 

360 stop 

390 REM "SUBPROGRAM CALCUL ITERATIV SARCINA” 
400 RaNaUjeSQR(Dl=P/a)susU2*S0R (Hio(DieP/a)=(DaeF/a)): 
405 Wz (HeCe (24D2+F))k(S+Ca(2wD2+F)) 
410 GEUanA24+BeSUR (Hi (DimP/a)otva=F/2))aJ/n 
420 1F ABS(PoR)<sE THEN 409 


130 PER 

uue Fi6 

450 0070 u2o | 
460 PaR 

470 F=G 

475 REM "DIFERENTE DE SARCINA" 
480 DiaDjeR 

490 DazD2=6 

492 REM “DEBIT EFLUENTR 

095 033 UieAi+Be+SQR(Di) 

497 REM "DEGI AFLVENTA 

S09 0azuzeh2aBa30R (Hi»Dleb2) 
S05 REM PVOLUM EVACUAT? 

510 K=(01+02)/2 

920 WakaJ 

525 REM "SARCINA ECLUZA" 

530 2n2+k 

Sa PRINT 1pZ002,03,C2,D1 
S$so 9iz0a 

St IF Zs20,9V THEN 589 
579 1737 

590 RETURN 

€50 DATA 2000,1,79 

619 DATA 701,5 

&20 DATA 79,10 

630 DATA b41e0,5p180p120 
440 DATA 8754065, 36i,120 
€590 DATA 14900/0.01 

660 END 

E] 922 


Capitolul 12. | Microcalculatorul personal aMIC 
în procesul de învățămînt” 


Încercările mai vechi de utilizare a calculatoarelor în procesul de învă- 
'ţăm înt s-au bazat pe folosirea terminalelor de tip display, cuplate la un calculator 
central. Deşi utile, sistemele nu s-au extins în învățămîntul liceal, chiar în 
ţările avansate industrial, datorită costurilor lor ridicate. 

Apariţia calculatoarelor personale permite abordarea acestei probleme de 
pe noi poziţii, deoarece aceste calculatoare pot fi folosite de către elevi, atît 
în şcoală, cît și la domiciliu. Facilităţile hardware şi software de care dispun 
calculatoarele personale permit cuplarea lor la un calculator central, dotat cu 
o bază de date (cunoștințe). În acest context asistarea procesului de învăţăm înt 
de către calculator capătă noi dimensiuni. 

Ma.) 


12.1. Modalităţi de integrare a calculatorului în procesul de pre- 
dare-învăţare, locul şi rolul acestuia în asistarea procesului 
de învăţămînt 


Asistarea procesului de învățămînt cu calculatorul. Această problemă 
este de dată recentă, dar de mare perspectivă și cu consecinţe pozitive 
pentru optimizarea predării-învăţării, pentru integrarea învăţămîntului cu 
cercetarea, cu producţia, cu viaţa. 

Este cunoscut faptul că în ultimele două decenii, colaborarea dintre 
informaticieni, constructori de calculatoare și specialişti din domenii ale instruc- 
ţiei şi educaţiei a permis iniţierea unor programe concrete privind folosirea 
calculatoarelor în procesul de învăţămînt. Ca urmare, au fost concepute, reali- 
zate și perfecţionate variate limbaje de programare, cu ajutorul cărora să se 
poată edifica autoinstruirea automată, să fie prezentate la clasă lecţii, ori 
secvențe ale acestora, în sprijinul optimizării procesului de predare-învăţare. 
În consecință, psihopedagogiei i-a revenit sarcina edificării unei metodologii 
care să asigure eficienţa asistării procesului de învățămînt cu calculatorul. 

Conceptul de asistare cu calculatorul a procesului de învăţămînt include 
atît predarea cu calculatorul a unei lecţii de comunicare a noilor cunoștințe, 
de aplicare, de consolidare ori de sistematizare a acestora, cît și verificarea 


* Cu orientare spre învățămîntul mediu. 
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automată a unei lecţii sau a unui grup de lecţii, a unei anumite discipline șco- 
lare la finele unui trimestru sau an şcolar, a unei anumite programe școlare 
în cadrul examenelor de absolvire sau de admitere. Tot în cadrul „asistării“ 
este inclusă și prezentarea sau verificarea cu calculatorul a unor secvenţe ale 
lecţiilor desfășurate după metodologia clasică. 


Calculatorul devine un auxiliar al procesului de învățămînt. 


Tehnica instruirii cu calculatorul. Instruirea cu ajutorul calculatorului 
se realizează fie în cadrul așa-ziselor „clase automatizate“, în care lecţia se deru- 
lează secvenţă cu secvenţă pe ecranul de la pupitrul fiecărui elev, fie în cadrul 
laboratoarelor de matematică — mai ales, pentru prezentarea de la catedră, 
prin intermediul ecranului, a unor secvenţe ale lecţiei clasice. O clasă automati- 
zată dispune de un calculator și mai multe terminale (în jur de 30) care recep- 
ționează mesajele pe ecranul individual. SĂ 


Predarea lecţiei prin intermediul ecranului se realizează printr- 0 succe- 
siune de imagini, numite „imagini-ecran“, care afişează lecţia, derularea lor 
fiind dirijată de către profesor — în concordanţă cu normele psihopedagogice 
ale procesului de instruire la virsta şi în cadrul obiectului predat. 
rca TARIE 0 TOBE AGREMENT 7 Aa NORI SAE E TREIA + XR Pe IO 072 ma PERI e7€T” SONT PORIERATVIREC 

Instruirea cu ajutorul calculatorului se poate însă realiza Şi în afara 
schemei clasice a procesului de învăţămînt. Elevul, studentul, sau orice altă 
persoană interesată poate beneficia, într-un anumit cadru, de posibilitatea 
autoinstruirii automatizate. Aceasta se realizează fără profesor, activitatea sa 
fiind însă materializată în lecţiile afișate pe ecran. Dialogul între mașină și 
cel care învață singur se realizează cu ajutorul unei console legată de calculator, 
aceasta fiind construită dintr-o claviatură alfanumerică și din ecranul semnalat 
mai sus. 

Lecţia, sau grupul de lecţii, sînt stocate în memoria calculatorului și cu 
ajutorul seitware-ului sînt afişate treptat, imagine cu imagine, pe ecranul 
consolei, furnizind astfel materialul de învăţat. 


"" în cadrul acestei instruiri elevul îşi poate regla singur ritmul de afișare 
a imaginilor pe ecran ; el își poate întrerupe pregătirea în orice moment al lec- 
ţiei, reluînd-o de la secvenţa la care s-a oprit, pe baza „recunoașterii“ sale de 
către calculator. Această posibilitate de „recunoaștere“ permite folosirea în 
timp a aceleiași lecţii de către mai mulţi elevi. 

Poe. În lecţiile predate cu ajutorul calculatorului sînt prevăzute şi exerciţii 
de control, răspunsurile putînd fi adeseori selectate dintr-o listă de variante 
afişată pe terminal. Metoda folosită în acest caz este, oarecum, similară învă- 
țămintului programat. În cazul că lecţia urmăreşte testarea cunoștințelor, atunci 
fiecărei imagini-ecran i se asociază una sau mai multe întrebări. Răspunsurile 
la întrebări sînt cotate cu un anumit punctaj, acesta depinzind de calitatea 
răspunsului şi de timpul în care a fost dat. 


e 


Di a dialogul dintre maşină și cel care învaţă se foloseşte și funcţia de 
„help“ a calculatorului. Prin aceasta sînt puse la dispoziția utilizatorului, sub 
formă de imagini-ecran, comentariile şi explicaţiile necesare integrării și însușirii 
corecte a unor noțiuni — fără de care lecţia nu poate continua. Evidenţiem 
cu acest prilej, „posibilitatea“ maşinii de a detecta imediat eroarea în în- 
sușirea unei secvenţe a lecţiei și dea facilita remedierea acesteia prin comenta- 
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riul făcut și indicarea informaţiilor suplimentare necesare continuării instruirii. 
Cel care învaţă poate trece la secvenţa următoare a lecţiei numai dacă a răspuns 
corect la întrebările sau exerciţiile propuse, interacțiunea dintre utilizater şi 
sistem realizindu-se permanent pe bază de dialog. 


Calculatorul didactic poate îi înzestrat și cu „posibilitatea“ de a memoriza 
performanţele celui ce învaţă : timpul necesar pentru răspuns, nota obținută, 
întrebările la care frecvenţa răspunsurilor slabe este mare etc. În acest mod sînt 
furnizate fie elevului, fie profesorului, o serie de date pedagogice individuale, 
sau caracteristice unei anumite populaţii școlare, care sînt necesare optimizării 
acestor programe și lecţiilor recapitulative sau de control curent ce se vor 
organiza. 

Consecințe pedagogice ale asistării lecţiilor cu calculatorul. Folosirea calcula- 
torului în şcoală oferă învăţării lecţiei noi posibilităţi de dezvoltare şi de eva- 
luare. Așa, spre exemplu, prin intermediul consolei pot fi simulate pe ecran 
procese și fenomene în evoluţia lor, unele experienţe greu accesibile laboratoa- 
relor şcolare fie datorită costului lor prea ridicat, fie pericolelor existente, 
protecţiei muncii şi a mediului înconjurător, fie depărtării acestora în timp 
sau în spaţiu etc. 

Ca o nouă componentă a tehnologiei învățămîntului, folosirea calculatoa- 
relor în munca instructiv-educativă va lărgi aria de posibilităţi și de funcţionali- 
tate a laboratoarelor școlare, în beneficiul tuturor disciplinelor de învăţămînt 
care folosesc tehnică de calcul sau de reprezentare. 


Cu ajutorul calculatorului poate fi optimizat randamentul. predării prin 
prezentarea cu ajutorul ecranului a unei largi varietăți de exemple sau de mo- 
dele asociate unor secvenţe ale lecţiei. Toate acestea concură la adîncirea sau- 
lărgirea orizontului noţiunilor predate, adeseori extrapolindu-le dincolo de obiec- 
tul predat : în tehnică, în economie, în știință, în practică ete. În acest mod 
s-ar putea vorbi despre o „dilatare“ a sferei aplicative a noţiunilor predate, 
precum şi de o „comprimare“ a timpului necesar însușirii și aplicării creatoare 
a noţiunilor științei. Acest aspect poate conduce la stimularea inventivităţii 
şi aplicativităţii, a spirirtului participativ şi anticipativ al celui ce învaţă. 

Folosirea calculatoarelor ca mijloace de învățămînt va avea, desigur, 
consecințe importante asupra formării intelectuale a tinerelor generaţii în 
spiritul autoeducaţiei — și, prin aceasta, al educaţiei permanente. În această 
activitate formativă vor fi stimulate toate componentele gîndirii logice în 
sens larg: gîndirea logico-deductivă, inductivă, analogică, ... cu accent pe 
gîndirea euristică. Va fi astfel stimulată mai bine şi problema orientării profe- 
sionale a tineretului, capacitatea acestuia de reciclare rapidă pentru sectoare 
de muncă „înrudite“ profesional. Fireşte, pentru atingerea acestui ţel, considerăm 
că nici disciplinele tehnologice și nici atelierele-școală, prin şi în care elevii 
trebuie să înveţe să producă la nivelul tehnicii contemporane, nu trebuie să 
rămînă în afa a folosirii calculatorului și a tehnicilor de calcul ale producției 
moderne. Prin aceasta s-ar putea realiza mai bine şi componenta tehnică a edu- 
caţiei multilaterale a personalităţii umane. 


Desigur, progresele realizate astăzi pe linia dezvoltării şi a ieftinirii circui- 
telor integrate, între care microprocesoarele ocupă un loc important, vor per= 
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mite construirea pe scară tot mai largă a unor echipamente așa-zise de ''uz 
personal”, numite și calculatoare personale (individuale). Acestea pot [i folosite 
şi în procesul de învățămînt, intrîind — pentru început — în zestrea labora- 
toarelor de matematică (de ex.), în calitate de auxiliar al predării, al verificării 
cunoştinţelor, ...,al învăţării. 

Dar pentru integrarea calculatorului în familia mijloacelor de învățămînt, 
profesorului i se cere să stăpinească, în afara specialităţii sale, un volum apre- 
ciabil de cunoștințe din domeniul informaticii, un limbaj de programare a lec- 
ţiilor sale, cum și o mare varietate de tehnici pentru realizarea desenelor și a 
exerciţiilor din lecţiile sale curente, de sinteză sau de control etc. Se între- 
zăreşte de aci necesitatea acestor cunoştinţe, cum şi a unor deprinderi tehnice, 
în pregătirea generală a întregului personal didactic din învățămîntul secundar. 
Acestea se pot obţine pe baza unor programe speciale, atit în pregătirea uni- 
versitară a cadrelor cît şi în perfecţionarea postuniversitată. Mai mult, pentru 
folosirea calculatorului va fi necesară o pregătire generală a întregului tineret 
— în cadrul noilor programe ale învățămîntului liceal. Fireşte, este necesar 
ca — în perspectivă — să dispunem de limbaje de programare foarte simpli- 
ficate, ameliorînd astfel eforturile utilizatorilor pentru însuşirea lor. 

Trebuie recunoscut că nici pentru elev nu este chiar atît de simplă și de 
uşoară pregătirea individuală cu ajutorul calculatorului. Şi acestuia îi este mai 
uşor dacă poate primi cunoștințele în limba sa proprie, dacă poate "'conversa”” 
cu maşină într-un limbaj natural — nu artificial. În plus, mașina care servește 
autoeducaţiei automatizate nu poate dispune de prea multe mijloace pedago- 
gice, în afara celor ce decurg din evidenţierea reușitei lu invățătură, sau a 
semnalări! :rsuccesului și tri:niterea la întrebări și materiale njutătoare. 

“ste de apreciat faptul că, însuşindu-şi cunoștințe în faţa coiisolei, elevul 
invaţă singur şi sigur, adeseori în ritm optim propriu, fără emoţii şi fără pertur- 
bări ale comportuiuentului de către diverșii factori legaţi de mediul său încon- 
jurător. El este scutit de emoţiile care apar atunci cînd se vede “urmărit” de 
către profesor, sau de către colegii săi de clasă (deși, aceste emoţii pot avea 
frecvent şi un rol pozitiv asupra personalității sale). 

De asemenea, în faţa consolei elevul primește obiectiv și cu optimism 
„nota“ acordată răspunsurilor și deci pregătirii sale ; învaţă de aici să-şi apre- 
sieze calitatea și durata pregătirii, performanţele atinse și, mai ales, învață 
să-şi mobilizeze resursele de energie și de voinţă pentru o nouă calitate a 
muncii sale. 

După cum se vede, științei învăţării i se circumscrie un nou domeniu în 
care cercetarea pedagogică interdisciplinară va fi solicitată foarte mult. Absența 
acesteia poate frîna accesul calculatoarelor în domeniul învățămîntului. 


Încă de pe acum au apărut o serie de întrebări în legătură cu așa-zisa 
“înstrăinare” a individului ca urmare a unui învățămînt automatizat. 


Noi considerăm că un învățămînt complet automatizat nu poate exista, 
problema ” înstrăinării” pierzîndu-și astfel suportul pe baza căruia a fost lansată. 
Practica va fi, desigur, în favoarea folosirii tehnologiilor celor mai avansate 
şi în domeniul învățămîntului, atît dezvoltarea tehnicii cît și a științei educaţiei 
fiind strîns legate de dezvoltarea întregii societăţi. Or, societatea contribuie 
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nu numai la umanizarea tot mai înaltă a personalității umane, ci și a tehnicii, 
a matematicii chiar, a mijloacelor de învăţămînt și educaţie. Mai mult, există 
şi o întoarcere “'reflexivă : tehnica, matematica, ..., au la rîndul lor un rol 
tot mai mare în umanizarea omului. 


12.2. Modele de lecţii sau secvenţe ale acestora pentru instruirea 
asistată de calculator (LAC) a matematicii în liceu 


ji: Tema. Rezolvarea sistemelor de d două ă ecuaţii de de gradul 1 cu « 1 cu două ne necunoscute (lecţie de reca- 
ERE AAA pitulare” finută în. laboratorul de ul de matematicăţia înce, începutul c clasei a IX-a) APE? 
CEI ET S DEI TENE n PD ERE EUR 

În această lecţie « se ci iei ca elevii să alcătuiascățcorect programul de 
rezolvare a unui sistem de două ecuaţii de gradul I cu două necunoscute și 
schema logică a rezolvării sistemului ; de asemenea, ei trebuie să se convingă 
de necesitatea folosirii calculatorului la rezolvarea unor sisteme care necesită 
un volum mare de calcul. 


1* Programul de rezolvarea sistemului. 
Pe baza recapitulării cu clasa, a principalelor noţiuni și metode privind 
rezolvarea sistemelor de două ecuaţii de gradul I cu două necunoscute, se sta- 
bileşte programul de rezolvare a sistemului 
A-X+B-Y=C 
D.X+E.Y=F. 
Astfel se notează: M=A-E—B.D, MIl=C.:E—F.B, M2=A.F—C.D şi 
se face discuția de mai jos: 
dacă M=0 şi M1z0, atunci sistemul este incompatibil ; 
dacă M=0 şi ML =0, atunci sistemul este compatibil nedeterminat și are 
o infinitate de soluţii ; 
dacă Mz0, atunci sistemul este compatibil determinati și are; soluţiile 
=: 4 XE ÎMI PE M2 ee 0 IN altă 


a MI Sa 
i M A 20 3 Ya ea 


2%. Schema logică] 


În perspectivă, noile programe de matematică vor beneficia — probabil 
de noțiunile privind schema logică, încă din clasele VII—VIII. În acest caz, 
ținînd seama de program, se va alcătui cu clasa schema logică a rezolvării 
sistemului. 4 fă 


Observaţie. În cazul că programa nu prevede noţiunea de schemă logică, se va 
trece la rezolvarea unor sisteme de ecuații, verificîndu-se soluţiile 
cu calculatorul. (fig. 12.1) 
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SCRE 
INCO 


TE! 
FATIB 


SCRIE „SISTEM 
COMPATIBIL _,, 
EDE TERMINA 


Fig. 12.1. Organigrama rezolvării unui sistem de două 
ecuaţii cu două necunoscute. 


3*. Programul în BASIC 


1 INITP 80 X=M1/M 
5 PRINT REZOLVAREA UNUI SISTEM 90 Y=M2/M 
DE” 100 PRINT "SOLUȚIILE SISTEMULUI? 
10 PRINT ''DOUA ECUAȚII CU DOUA” 110 PRINT "X=",X; 'Y=",y 
15 PRINT ''NECUNOSCUTE” 120 GO 'TO 189 
20 PRINT A*X+B*y=C; D*X+E*Y=F'' 130 IF Mi< > THEN 160 
30 INPUT A,B,CD,E,F 140 PRINT “SISTEM COMPAT. NEDETER-- 
40 M=A*E—B*D MINAT” 
50 M1=C*E—F*B 150 GO 'TO 189 
60 M2=A*F—C*D 160 PRINT ''SISTEM INCOMPATIBIL 
70 IF M=0 THEN 130 180 END. 


4*, Aplicaţie pe calculator 
Se cere rezolvarea sistemului : 


5,625x-+375y —721,851 
105x-+-3,25y =—163,9348 


Practic, o parte din elevi vor da soluţii greșite în rezolvarea acestui sistem: 
Soluţia este : x =—1,5024 ; y=—1,9024 
Se trece apoi la rezolvarea cu calculatorul a sistemului. 
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Calculatorul „aMIC“ oferă soluţia : x=1,50239 ; y=—1,90239. 

În final, profesorul se va opri asupra unuia din obiectivele acestei lecţii 
de recapitulare şi anume acela al necesităţii alcătuirii schemei logice—ca dovadă 
a unor priceperi şi deprinderi trainice în rezolvarea sistemelor de două ecuații 
cu două necunoscute. De asemenea, pe baza rezolvării ultimului sistem, elevii 
se conving că este necesară folosirea calculatorului pentru rezolvarea unora 
din sistemele cu coeficienţi mai „complicaţi“. Ei vor fi solicitaţi să ofere calcula- 
torului, spre rezolvare, o serie de sisteme compatibile sau incompatibile, să 
„compare timpul lor de rezolvare cu timpul necesar calculatorului ete. Pe această 
“bază apare şi dorinţa însuşirii unui limbaj de programare în vederea accesului 
lor la calculatorul școlii. 


Tema. Funcția (secvenţă dintr-o lecţie de sinteză de la [inele clasei a IX-a — ea poate serot 
ca o lucrare de control al cunoștințelor recapitulate). 
Prin intermediul consolei se proiectează pe ecran funcţia 


t:(—5,6] = (—4,4] 


al cărei grafic este dat în figura 12.2 şi se cere să se scrie ; 

1”. mulțimea valorilor funcţiei ; 

2. lungimea fiecărui segment al figurii (in ordinea de pe figură) | 

3*. panta fiecăreia din dreplele ce conțin segmentele figurii (în ordine) | 

4”. ecuaţiile dreptelor ce conțin segmentele figurii (în ordine) ; 

6. dacă funcţia este injectivă sau surjectivă ; 

6*. mulțimea valorilor argumentelor pentru care se anulează funcţia j 

7*. mulțimea valorilor argumentelor Pentru care f(2)> 0) (respectiv f(r)<0) 1 

8. mulțimea pentru care funcţia este strict crescătoare (respecliv strict descres- 
cătoare) ; 

9. reprezentarea în acelaşi sistem a funcțiilor date de y="faz, ' şi v=— 
=—" fazo , unde f este fune[ia dată inițial. 


B(- 34) d 


E (6,-2) 


A(-5,-4) i 
Fig. 12.2. Funcție dată sub forma grafică. 
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Obserraţie. Pentru liecare din întrebările puse (exceptinjd 9”) sint atașate cite două răs- 
punsuri din care unul este corect și nu prea greu de sesizat. Pentru (9), explicaţiile suplimen- 
tare conţin trei sisteme de axe de coordonate : primul reprezentind y=f (x) şi y= |tQO|,al 
doilea pentru y=f (x) și y=—l|f (x) |, îar al treilea conține toate cele trei grafice în ordine 
(linie plină, punctat și liniuţe). Elevul îl subliniază cu o linie pe cel corect și predă lucrarea 
profesorului. În tema de acasă, elevul trebuie să răspundă la întrebările de mai sus, motivind 
care sint elementele de care n-a ţinut seama în cazul răspunsurilor incorecte. Acest mod de 
lucru îl va stimula să înţeleagă funcţia de „help“ a calculatorului, construind el însuși „comen- 
tarin! și trimiterea la material auxiliar“ ,,,, 


Tema. Funcţii pulere de forma 
t:R —R,(1x)=x",neN 
şi funcții putere de forma ! 
1: RN(8)—R, î(x)=x", n ez. 


( Reluăm o secvență din prima parte a unei lecții de sinteză de la finele clasat 
a IX-a, sau de la începutul clasei a X-a. Calculatorul este folosit aiei de către 
profesor pentru antrenarea gindirii „productive“ a intregii clase). 


1*. Prin intermediul consolei vor fi proiectate pe ecran cîteva grafice 
corespunzătoare lui n e (0, 1, 2, 3, 4, 5), în două etape: 

1*. Cazurile particulare (pentru nz0 şi pentru n=l): 
(n=0= î (3)=—1)— dreapta de ecuaţie y=l, paralelă cu (0x), figura 12.3 3 
(n=1l = fî(x)=—x) — dreapta de ecuaţie y=x, bisectoarea I, figura 12.4; 

Se reţine de aici ideea că graficele trec prin punctul P (1, 1). 


Fig. 12.5 Fig. 12.6 Fig. 12.7 Fig. 12.8 
Fig. 12.3. Funcţia y=1. Fig. 12.6. Funcţia y=x?. 
Fig. 124. Funcţia y=x. Fig, 12.7. Funcția y=xi. 
Fig. 12.5. Funcţia y=x?. Fig. 12.8. Funcţia y=x5. 


2. În cea de-a doua etapă se proiectează gralicele următoarelor funcţii : 
(n =2 = t (3) =x2) — parabole de ecuaţie y =x?, figura 12.5 
(n =3) = £ (3) =—x9) — parabola cubică de ecuaţie y=z5, figura 12.6 
(n =4) = £ (x) —x%) — grafic de tipul parabolei, avînd ecuaţia y =xf, figura 12.7 
(n =5 = £(5)=—x5) — grafic de tipul parabolei cubice, avind ecuaţia y x, 

figura 12.8 Juli 
((n=2p. peN, p>1) = (ft (x)=x2)) — grafic de tip parabolă, de ecuaţie y =x*?; 
((n=2p+1, peN, p>1) = (f(x) =—x22+D)) — grafic de tip parabolă cubică, de 
ecuație y=—x2+1. 
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2. Comentarii ce se pot desprinde din analiza graficelor de funcţii 
f(a)=>”, xeR, neN. 

1*. Pentru orice n, n-natural, graficul trece prin punctul P(, 1), şi 
pentru orice n, ne N*, graficul trece prin originea axelor, deoarece propozi- 
ţiile „0=0“ şi „1=—1"* sînt adevărate. 

2%. Dacă n este număr natural par (n=2p, p>0), graficul este simetric 
în raport cu axa (0y), deoarece: f(—x)=(—x)=x?=f (x), funcţia f fiind 
pară. Dacă M (a, b) aparţine graficului funcţiei î (x)=x%, xe R, atunci este 
adevărată egalitatea b=—a?P. De asemenea, este adevărată şi egalitatea b=(—a)% ; 
adică, M' (—a, b) aparține graficului funcţiei date. Fiecărui punct de pe gra- 
fic M' (a, b) îi corespunde pe același grafic simetricul M' (—a, b) în raport cu 
axa (0y). 

3*. Dacă n este impar, n=2p+1, atunci graficul este simetric în rapor! 
cu originea axelor de coordonate 0 (0, 0). Avem: 


î (—x)=(—x)pri x 1 = (3), funcţia fiind impară. 


Dacă Ma, b) aparţine graficului, atunci este adevărată egalitatea 
b=—a?»+1 şi, de asemenea, egalitatea —b=(—a)»+! ; adică, M' (—a, —b) apar- 
tine graficului. Fiecărui punct de pe grafic M (a, b) îi corespunde pe gratie 
simetricul M'(—a, —b) în raport cu 0 (0, 0). 

4*. Graficul oricărei funcţii î:R— R, î (3)=x", n par, este simetric în 
raport cu axa (0y), iar pentru n>0 are forma similară parabolei funcţiei 
î (x)=>f, xe R (spre exemplu). 

Graficul oricărei funcţii f:R—R, Î (x)=>x", n impar, este simetric în 
raport cu 0 (0, 0) şi are forma similară graficului funcţiei î (x)=x5. 


Observaţie. Pentru a verifica dacă noţiunile recapitulate, ale acestei sec- 
venţe, au fost însușite corect, secvenţa imediat următoare (fie că aceasta este 
derulată cu ajutorul calculatorului, fie prin metodele clasice obișnuite) ar 
consta din următorii paşi : 

i) Desenaţi, schematic, graficele funcţiilor date prin formulele y =x" și 
y=x”, xeR şi scrieţi mulțimile de valori ale argumentului pentru care : a) func- 
ţiile sînt nule ; b) funcţiile au valori pozitive ; c) funcţiile au valori negative. 

ii) Pentru funcţia dată prin formula f (x)=—x15, xeR, comparaţi 1 (2) 
şi f(—2); găsiţi t (—a) știind că f (a)=32. 

iii) Pentru funcţia dată prin formula f (x)=x, xeR, comparaţi ! (3) 
şi î (—3) şi găsiţi f (—a) știind că î (a)=92. 

IV) Fie punctul arbitrar M (a, — b) aparţinind graficului unei funcţii f. 
Dacă funcţia este dată printr-una din formulele y=—x” sau y=x* să se preci- 
zeze dacă punctele N (—a, b) și P(—a, —b) aparţin graficului lui f. Evident, 
pentru acest ultim punct este necesar un mic comentariu. 


Tema. Logarilmi (definiție şi proprietăţi buzale pe definiție) — lecţie de comunicare, realizată 
pentru autoinstruirea aulomatizată. 


1.. Noţiunea de logaritm. Să considerăm ecuaţia exponențială 


ax=N, N>0, a>0, az. (1) 
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Se observă că ecuaţia (1) nu are soluţie pentru N<0, deoarece 


f:R— (0, oo), f(x)=a* 
are valori pozitive. 

Pentru N>0, ecuaţia (1) are soluție unic determinată, aceasta de- 
curgînd din proprietatea de bijectivitate a funcţiei exponenţiale. În figura 12.9 
respectiv 12.10 este prezentată rezolvarea grafică a ecuaţiei ax=N, a>l (res- 
pectiv 0<a<1). 


N.2 D= 
Fig. 12.9. Graficul funcţiei ex- Fig. 12.10. Graficul funcţiei ex- 
ponenţiale a*=N,a>1. ponenţiale a* =N, 3 <a<! 


Soluţia ecuaţiei ax=N, unde a>0, az! și N>0, se numeşte logaritmul 
numărului real pozitiv N în baza a. 

Prin definiţie, logaritmul numărului real pozitiv N în baza a, unde a 0 
şi az], este exponentu) la care trebuie ridicată baza a pentru a obţine N. 

L.ogaritinul numărului N în baza a se notează „log, N“, se citeşte „logu- 
ritmul în baza a al lui N“ sau „logaritmul lui N în baza a“ și se scrie „x = log, ÎN 

Conform definiţiei avem : 

5 


1 a 
log 16 loga: & =4 3, log i =logg [i =logg3-? =—9, 


243 


Avem deci relaţia : loga" =n. 

Din (1) şi (2) rezultă egalitatea : al, N =N, N>0. 

Dacă în (1) punem x=], atunci a1=a şi conform cu (2) avem relaţia : 
loga =. 

Dacă baza a este 10, atunci în loc de „logyp N“ se scrie „lg N“ şi seciteşte 
„logaritmul lui N în baza 10“ sau „logaritmul zecimal al lui N“ ; iar dacă baza 
a este numărul irațional e=2,71828 ..., atunci în loc de log,N se serie „InN” 
şi se citește „logaritmul natural al numărului N“. 

2. Aplicaţii privind folosirea definiţiei şi a proprietăţilor bazate pe cu. 
(Pentru a nu mai prezenta răspunsurile și comentariile corespunzătoare lor, 
fiecare grupă de exerciţii începe cu un exerciţiu model, rezolvarea celorlalte 
fiind analoagă modelului). 
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*, Dovediţi că logg i =—3, 


R ; Conform definiţiei, avem : aaa egalitate adevărată 
g 


inŢacelași mod, să se arate că egalitățile următoare sînt adevărate: 
djloga Bl 45. bhloggDamitieg€) gpl tect d) logati la 
2 10 64 
1 1 
e) log =8=6; log" '9 ca ien, 8) loga —=——. 
) S/3 9) g) Ss 3 p 


2%. Găsiţi numărul N, A cărui logaritm în baza o este egal cu —2. 

. Re : 1 
R : Conform definiţiei, avem log; N=—2 > N=5? e N= ZA 
În același mod, să se găsească N știind că: 


a) logsN=2; b) lei, =—1; 0) lesN=—2; d) log N=3; e)leN=0s 
î) los N=1,5; g) log pN=— i h) loga N = —-; k) logaaN =1,5 
„ Găsiţi baza a, a logaritmului numărului 64, dacă log,„64=——4 
LARA i 3 ri 
Za d a a 1 1 
R :10g,64=——4 ee a-t=64 e 1=(64) + =(29) 1=2 2 = [> az 


În acelașitmod, să'se găsească baza a știind că : 


a) loga27—3; b) 1081000=—1,5; c) log07=—6; d) logu6t= a 
e) loga j2=—2,5; î) loga (97 /3)= 2; 9) loga =; 
h) log, 4/3. 


4“. Găsiţi logaritmul PIL:pATDIp 8 în baza 3. 


RI: log ,8= =" (2) 897 = Be —3 e x=6. Deci log 3 8=6. 


Infacelași mod, să se determine numerele :] 


L] 
a) loga; b) 190,01: c) log1 20; d) log 1 97) logo 35: 
N3 
„R 


) loga (8/2) ; 8) loga. 


5”. Găsiţi valoarea expresiei 10% 12. 
R ::10i612 = 1 ok 1012-12. 
În acelaşi mod, să se găsească valorile expresiilor : 


a)p10-15 5 2 h) 10 100 . c) 10 01 : d) 100. 
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6”. Care din expresii are sens ? 
a)log, 0; b) 18001; c) Vig09; d) 1g(lg96); e) loss(-7); 


„£) loga (—3); g) loga (—4)4; h) Vlg 25. 


7. Rezolvaţi ecuaţia logsx =—] 


1 
R :logsx=—l e x=31 x= za 
În același mod, să se rezolve ecuaţiile : 


a) log x=3; b) logosx=2; €) loga (logs x)=0. 
Ea. 


12.3. Programe utile în procesul de învăţămînt 


În cele ce urmează se prezintă o serie de programe, care pot îi utilizate 
in procesul de învăţămînt. Ele pot fi completate cu unele din programele date 
în paragralele anterioare ale acestui capitol. 

Programele de mai jos sînt utile în cadrul orelor de algebră, geometrie, 
fizică, pentru ilustrarea, prin reprezentări grafice, a unor luncții sau fenomene 
fizice. De asemenea, ele pot fi folosite pentru verificarea cunoștințelor unor 
grupuri de elevi, în privința despărțirii cuvintelor în silabe, a cunoașterii reşe- 
dinţelor de judeţe sau pe alte teme. La sfîrşitul examinării candidaţii sint ordo- 
naţi automat după mediile obţinute. 


12.4. Program pentru trasarea cercului trigonometric. 


Programul trasează cercul trigonometric şi calculează funeţiiie Sin, Cos 
tg, pentru un unghi dat. Unghiul se dă sub forma unui multiplu k, de 5 grade — 
(P1/36). 


SIN T.F 

10 REM'CERE TRIGCNCMETR] € 

2 REM*E=MULTIPLII DE $ GRADE 

15 INPUT k 

20 G=kKaPl/36 

MOVE 50, 50 

20 FAR J=0 TO BaPl STEP F1/3e 
40 DRAM 23005 ()+50, 230370) +50 
SO NEXT d 
60 MOME S0, So 
70 RDRAW i, 
20 RMOVE 
SO RDRAW 
100 MOVE 9 
110 RDRAW 2S=C0S(8), 25*6IN(Q) 
120 RDRAW 0, -2S*SIN(a) 
125 P=Qx180/FI 
120 P&INT AT(17,70)"A(1,0)" 
140 FRINT AT(£,9)"B(0,1)" 
150 PRINT ÂTC17,jp"Ci=i,0)" 
160 PRINT AP(35,%)"D10,-19" 
1e5 PRINT AT(25,1)"U;u 
170 PRINT AT.(27,1)"8="p0 
189 PRINT ATIZE,1)"SIN(Q)="; SIN(E) 
190 PRINT AŢ(29, 1) "COS (G)="; COS (Q) 

' 200 PRINT AT(30,1)"TAN(0)="; TAN(EI) 
400 ENB 


l 50 
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12.5. Program pentru vizualizarea poziţiilor unor drepte care 
trec prin originea axelor de coordonate. 


Programul are un caracter conversaţional, solicitînd iniţial numărul k 
de drepte, care urmează a fi reprezentate, coeficienţii unghiulari, M (k), ai 
acestor drepte și limitele pe orizontală ale ferestrei de afișare (XI, X2). 


5 IN 
REM"VIZUALIZAREA POZITIEI 
REM"UNEI DREPTE CE TRECE 
REM"PRIN 0(0,0),. IN FUNCTIE 
REM"DE COEFICIENTUL UNGHIU- 
REM"LAR M=TAN(U) „UNDE 
REM"Y=MaX 

REM"VARIABILE UTILIZATE 
REM"K = NUMAR DE DREPTE 
REM"M(K) = VECTORUL ALE 


10 


100 
110 
120 
130 
140 


IT P 


REM"CARUI COMPONENTE SINT 
REM"COEFICTENTII UNGHIULARI 
REM"LIMITELE FERESTREI 
REM"APISATE : Xi=LIMITA 
REM"STINGA, X2=LIMITA DREAP 
REM"TA, Y1 = LIMITA JOS,Y2= 
REM"LIMITA SUS 

PRINT "INTRODIJCETI K"”: 
INPUT kk 

PRINT "INTRODUCSTI COQEFICIENTIL* 
DIM M(k) 

FOR I=i TOK 

PRINT * M("917")."3 

INPUT M(1) 

NRXT 1 

PRINT * INTRODUCETI LIMITELE X1,X2" 
INPUT X1,X2 

YVi=X1 

Ya=X2 

REM" AFISAREA GRAFICULUI 


15 INITP 


VIEWPORT 40, 420,20, 100 
WINDOW X1,X2,Y1,Y2 
REM"TRASARE AXE SI CONTUR 
MOVE X!,Y1 

x2,Y1 

x2,Yva 

XI. Y2 

X1,Yi 

X1,0 

X2,0 

0,Yi 

DRAW 0,Y2 

PRINT AT (1,20)*Y" 
PRINT AT(15,30)"x" 
R=(X2-X1)/20 

POR I=i TO Kk 

PRINT AT(2%1, bi "Mp emit 
Ri=1*R 

MOVE X1,M( bax 

DRAW X2,M(1)*X2 

MOVE R1,0 

U=ATN(M(1)) 

IF U=> THEN 600 

IF U>0 THEN 560 


S5a U=PI+U 

S60 FOR =0 TO U STBP U/10 
570 DRAM RIxCOS(I) RPRSIN(J) 
S20 NEXT y 

600, NEXT 4 

>00 END 


12.6. Graficul funcţiei de gradul doi. 


Programul afişează într-o fereastră dată (XI, X2) o familie de 
de gradul doi (Y=A*X 42) cu diferiţi eoeficienţi. Limitele verticale ale feres- 


trei se calculează automat. 


parabele 
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5 INIT P 

10 REM"ORAFICUL FUNCTIEI 

20 REM"DE GRADUL DOI 

30 REM"Y=AxX*2 

40 REM"VARIABILE UTILIZATE 
SO REM"K=NUMAR DE PARABOLE 
60 REM"A(K)=VECTORUL ALE 

70 REM"CARUI ELEMENTE SINT 
80 REM"COEFICIENTII LUI X*2 
90 REM"LIMITELE FERESTEREI 
100 REM"AFISATE î XIaLIMITA 
110 REM"STINGA, X2=LIMITA 

120 REM"DREAPTA, YisLIMITA JUS 
130 REM"Y2=LIMITA SUS 

140 REM"FEREASTRA SE CONSIDERA 
150 REM"SIMETRICA, DECI: 

110 REM"ABS(X1)=ABS(X2)=X SI 
170 REM"ABS(Y1)=ABS(Y2)=X"2 
200 PRINT "INTRODUCETI K"; 
210 INOUT K 

220 PRINT "INTRODUCETI COEFICIENTȚII* 
230 DIM A(K) 

240 FOR I=i TOK 

230 PRINT "A("513")="ș 

260 INPUT A(I) 

270 NEXT 1 

280 PRINT "INTRODUCETI X"7 
290 INPUT Y 

300 41=-X 

310 X2=X 

320 Yi=-X*2 

320 Y2=X*2 

340 REM"AFISARE GRAFICA 

350 INIT P 

360 VIEWPORT 40,120,20,100 
370 WINDOW X1,X2,Y1,Y2 

380 REM"TRASARE AXE SI CONTUR 
400 MOVE X1,Y1 

410 DRAW X2,Y! 

420 DRAW X2,Y2 

430 DRAW X1,Ya 

440 DRAW X1,Yi 

450 MOVE X1,0 

460 DRAW X2,0 

470 MOVE 0,Y1 

480 DRAW 0,Yz 

S40 PRINT AT(1,20)"Y* 

ŞSO PRINT AT(15,30)*x* 

560 PRINT AT(1,1)3"Y=AxX*2" 
600 P=X/20 

610 FOR I=i TOK 

615 PRINT AT(2x7,1)“As Ip "mpAtI) 
620 MOVE X1,A(1)xXt*2 

630 FOR y=X1 TO X2 STEP P 
640 DRAW J,A(1)ay*2 

SO NEXT y 

660 NEXT 7 

700 END 


12.7. Graficul funcţiei de gradul N 


Programul reprezintă graficele u nei familii de parabole (Y=A (k)*X N), 
unde A (k) este coeficientul parabolei cu numărul-k, iar N>=—0. Programul 
solicită numărul k de parabole, coeficienţii A (k) și limitele orizontale XI, X2 ale 
ferestrei de afișare. 
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s INIT P 
10 REM"GRAFICUL FUNCTIEI 
20 REM"DE GRADUL N 
30 REM"Y=AxX*N 
40 REM"VARIABILE UTILIZATE: 
50 REM"K=NUMAR DE PARABOLE 
60 REM"A(K)=VECTORUL ALE 
70 REM"CARUI ELEMENTE SINT 
80 REM"COEFICIENTII LUI X*N 
90 REM"LIMITELE FERESTREI 
100 REM"AFISATE: Xl=LIMITA 
110 REM"STINGA, X2=LIMITA 
120 REM"DREAPTA, YI=LIMITA JOS 
130 REM"Y2=LIMITA SUS 
140 REM"FEREASTRA SE CONSIDERA 
150 REM"SIMETRICA, DECI 
160 REM"ABS(X1)=ABS(X2)=X SI 
170 REM"ABS(Y1)=ABS(Y2)=x*2 
200 PRINT "INTRODUCETI k"; 
210 INPUT K 
220 PRINT "INTRODUCETI COEFICIENȚII” 
230 DIM A(K) 
235 DOM N(KD 
240 FOR I= 1 T0K 
250 PRINT “A("ș1;*)mş 
260 INPUT A(1) 
265 PRINT "N": 1; "Dag 
266 INPUT N(I) 
270 NEXT 1 
220 PRINT "INTRODUCETI 1" 
INPUT X 
X1==% 
XasX 
YVi=-x"a 
Y2ex*2 

REM"AFISARE GRAFICA 
350 INIT PF 
360 VIEWPORT 40, 120, 20,100 
370 WINDCW X1,X2,Y1,Y2 
380 REM"AXE SI CONTUR 
40G MOVE XI1,Yi 
410 DRAM X2,Y1 
42 DRAW X2, Ya 
430 DRAW X1,Y2 
440 DRAW XI1,Yi 
450 MOVE X1,0 
460 DRAW X2,0 
470 MOVE 0,41 
480 DRAM 0,42 
S40 PRINT AT(1,20)*Y* 
550 PRINT AT(15,30)*X* 
360 PRINT AT(1,1)9*Y=AnXAN* 
600 P=x/20 
810 FOR l= 1 T0Kk 
e15 PRINT AT(2x1,1)"AIp*arA([) 


ele FRINT ATidel+1, L0"N"s Isa“ aN(1, 
G23 MOVE XI ACID RĂI" N(ID 

620 FOR 1x14 to x2 STEP P 

«80 DRAW J, ACI)" N(ID 

630 NEXT d 

40 NEXT 1 

e? PRINT "DORITI ALT K2, DA=i” 
&73 INPUT DU 

Si IF D= THEN 280 

700 ENI 


12.8. Graficul funcţiei logaritmice. 


Programul afișează graficul funcţiei logaritmice în bazele 2, 3, 5 şi 10. 
Iniţial se solicită limitele orizontale de afișare. 
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s INMIT F 


10 
zo0 


30 


ze 
3 


> REM "vi 


REM "RAF ICUL FIINCTIE) 

REM "LOGARITMICE IN 

REM "BAZELE ; 2,3,5,10 

REM “LIMITELE INTERVALULUI 

REM "DE AFIZARE 

REM “X1 LIMITA SI INCA 

REM "X2 = LIMITA DREAPTA 

LIN. ADE, Ye s LIN. Sire 
REM "LIMITA X1 VA FI CALCIILATA 
REM "PENTRU Y = LODUXI/LOG(LDi 
REM "DACA Y >= 1 LIMITA Vă 3E 
CALCULA 

REM “PENTRU Y = LOG(Xo/Liiz: 
PRINT "INTRODUCETI LIMITELE: 
PRINT "XI SI xz* 


1uo PRINŢ "xl =" 


INPUT X1 


0 PRINTI "Xe = 


INPIIT X2 
1F X1 = O THEN “&u 
YI = LOGIXLI /LOG(Z 


GA IF X2- 1 THEN 190 


Ya = LUGIX2)/LGG( 2 

GOTU 200 

Ya = LOG(X2) /LOGI 1 

REM "AFISARE GRAFICA 
INIT P 


D VIEWPORT 80, 120,0,7u 


WINIICU X1,X2,Y1,Y= 


O REM "TRASARE AXE 8) CIINIUR 
O MOVE X1,Y1 


DRAW X2,Y1 
DRAW X2,Yz 


O DRAW X1,Yz 


DRAW X1,Yi 


D MOVE X1,0 
O DRAW X2,0 
0 MOVE O0,Y1 


DRAW 0,Y2 


5 PRINT AT(10,10)"Yv 
O PRINT AT(22, 
O PRINT AT(1,195 "YO RO LD? 


juys 


PRINT AT(2, 1); "Y=LOGCXD)/LOG( 3) 


GO PRINT AT(3, 1): "YsLOB(X)/LAG(S)” 


AT(4, 1); "Y=LOD(X)/LODr10 
ATS, 105 "X1=ăi 
AT(6,1)p"X2a"iX2 
AT(7,103"Y 
AT(g, 1); "Ya: 


400 


60u 


425 GOSUB 600 
440 k = 10 si 
490 C08uB 600 
O PRINT"DORIT “ ui 
Cel ITI ALTE LIMITE * DA=j 
490 1F D=1 THEN 90 
495 GOTO 700 
S00 PRINT “LIMITA X1 INCORECTA” 
510 sTop 
S00 Ps (X2-X1)/100 
Ci0 FOR J = X1 TO X2 STEP F 
20 DRAW I,LOG(I) 7LUG(K) 
630 NEXT y 
640 MOVE X1,vi 
650 RETURN 
700 END 


12.9. Program pentru studiul aruncării corpurilor 
sub un unghi dat 


Programul solicită unghiul sub care are loc aruncarea, viteza inițială şi 
viteza v întului. 

Pentru încadrarea graficului in limiteie ecranului, programul execută o 
scalare pe verticală, calculînd iniţial înălţimea maximă la care ajunge corpul. 
În acest scop solicită numărul de pași pentru a calcula valorile parabolei în 
punctele respective, reținind valoarea maximă. 

Se afișează înălțimea maximă [și bătaia. 
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 INIT F 

2 REM"PROGRAM PENTRU STUDIUL ARUN- 

CARII CORPURILOR 

2 PRINT "INTRODUCETI UNGHIUL a UV, INIT:V,V, VINTs 


[i 


INPUT 1,V,W 
PRINT "INTRODUCETI NUMARUL DE PASI N=> 
INPUT N 

INIT F 

L=PIell/180 
2 K=VaCOSiL)-w 
3 VaSIN(L)D ZF 
4 A=-4,909/Kk*2 
S X2=KpVeSIN(L)=2/9,81 
7 


= 


, R2=(1/19.62)a (VaSINI(L))* 2 
PRINT AT(28,1)"H.MAX = "RE 
PRINT AT(29,1)"X,MAX =":x2 
43 DOSUER 1000 

So STOP 

40 END 

1000 IF X1< X2 THEN 1030 
1010 PRINT "LIMITE GRESITE” 
1020 STOP 

1030 H=(X2-X1)/N 

1040 VIEWFORT 40,100, 20,100 
1050 X1=0 

1070 Ri=0 

1100 IF X2>=R2 THEN 1140 
1110 x2=R2 Ș 

1120 GOTO 1190 

1140 Ra=xa 

1190 WINDOW X1,42,RI,k2 
Y200 MOVE X1,0 

+201 DRAW X2,0 

1207 MOVE O0,R1 

1203 DRAW 0,R2 

1810 X=X1 

1220 GOSUB 1500 

1230 MOVE X,F 

1240 FOR 1=1 TON 

1230 X=X+H 

1260 GOSUB 1500 

1270 DRAW XRF 

1280 NEXT 1 

1290 RETARN 

1500 P=AxX"2+Bxx 

1516 RETURN 


tă bă 0 di fu DIO GI NOD E 


ij 


12.10. Calculul punctului de intersecţie a deuă drepte 


U dreaptă poate fi definită prin specificarea coordonatelor unui punct 
M (x, y) şi a unghiului pe care îl tace cu direcţia pozitivă a axei Ox. Fie două 
drepte Dl și D2 de ecuaţii parametrice: 


X=X+L, cos U, 
Da: 
Y=Y+lu sin U, 


X = Xa Le cos Uz 
D2 : 
Y = Yo+lLe sin Ua 


Fie (X9, Yp) coordonatele punctului de intersecţie. 
Înloeuind în ecuaţiile parametrice, se obține sistemul ” 


Xp= Xa + La cos U, 
Yp=Y + sin U, 


Calculul punctului de intersecţie a două drepte 


De aici rezultă : 


Xp=Xa+ La cos Uz 
Yp=Ya+La sin Ua 


Ly cos U,—La cos Us=X2—X, 
L, sin Uj—La sin Uz= Y—Y, 
De unde: LL =((Aa— Xa) sin Up—(Y,—'Y2) COS U2)/sin (U,— U2). 


Avînd determinat Li, 


EPITET PILE IILE RER 


105 


REM 
REM 
REM 
REM 
DIN 
REN 
PRIN 
PRIN 
INPU 
PRIN 
INPU 
REM 
N=AB 
IP: 
PRIN 
sToP 
REHN 
REM 
Vi=u 
92=Uu 
pi=t 
D=$1 
L=01 
XD=X 
YO=Y 
PRIN 
PRIN 
PRIN 


coordonatele punctului de intersecţie vor îi : 
XNp=Xa+La cos U, 
Yp=Y+li sin U, 


LILI ITI LILI LILI pa 
“* CALCULUL PUNCTULUI DE „. 
“* INTERSECTIE A DOUA DREPTE »* 
“Se e e DDD DN DN d De e e de e emma 
D$(1) 

“CITIREA DATELOR” 

T "INTRODUCETI PARAMETRII DREPTELOR* 
T *X1,Y1,UL(GRADE)” 

T X1,Y1,U1 

T *X2,Y,U2(GRADB)* 

T x2,Y2,v2 

"TESTARE PARALELISM DREPTE" 
S((U1-U2)/180) 

NT(N)<>N THEN 50 

T *DREPTELE SINT PARALELE” 


“CALCULUL COORDONATELOR* 
"PUNCTULUI DE INTERSECTIE" 
1*P1/180 

2*P1/180 
X1-X2)*SIN(U2)=(Y1-Y2)xC0S(U2) 
N(U1-U2) 

1/9 

1+L*COS(UL) 

1+L*SIN(U1) 

T "COORDONATELE PUNCTULUI” 
T "DE INTERSECTIE SINT:* 
T *X0=*;Xx0 


PRINT *YO=*;Y0 


PRIN 


T “DORITI AFISARE GRAFICA? (DA,NU) 


INPUT De(1) 
IF D$(1)="D* THEN 120 


STOP 
REM 

Tis 
T2=A 
IRT 
TisT 
T1e2 
IF T 
T1=2! 
INIT 
VIEU 
WINB 
REH 

MOVE 
BRAU 
Hevă 
DRAU 
REM 

MOVE 
DRAW 
MOVE 
DRAU 
MOVE 
DRAU 
MOVE 
DRAW 
END 


"DEFINIREA SPATIULUI DE AFISAT* 
BS(X09 

Bstro» 

1512 THEN140 

2 

*T1 

1<30 TREN 149 

[] 


PART 10,90,10,90 

0U -T1,TI,-Ti,Ti 

“TRASAREA AXELOR* 

-T1,0 

T1,0 

O,-Ti 

0,71 

"TRASAREA DREPTELOR* 
X1-2xT1xCOS(U1),Y1-2*TI*SIN(UL»> 
X1+2*TIXCOS(U1),Y1+2*TI*SINCUL) 
X2-2xT2x*C0S (U2), Y2-2*T2*SIN(U2) 
X2+2*T2x*C0S (U2), 12+2*T2*SIN(U2) 
XO, YO 

X0,0 

X0, YO 

0,Y0o 
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Dacă dreptele sint paralele numitorul expresiei pentru calculul lui La 
este nul. Deci se va testa condiţia de neparalelism UI—UDz Ka. 
Programul funcţionează astiel : 
Citeşte parametrii celor două drepte ; XI, YI, Ul și X2, Y2, U2. 
2. 'Testează dacă cele două drepte sint paralele. Dacă areptele sînt paralele 
se oprește execuţia programului. 
3. Calculează coordonatele punctului de intersecție și apoi le atişează. 
4. Afişează gralic (eventual) rezultatul. 
La definirea spaţiului de afișat în linia 195, s-a avut în vedere ca originea 
şi axele sistemului de coordonate să apară pe ecran. 


— 


12.11. Calculul punctelor de intersecţie a două cercuri 


Se consideră cercurile definite prin centru şi rază: CI (XI, YI, lil) 
C2 (A2, Y2, R2). Distanţa dintre centrele celor două cercuri este: 


D= V(X2—X1)2 (52 Vp 


Se va nola G=X2—X1 şi H=y2—Y1. 

Pentru a se intersecta, distanța dintre cercuri: trebuie să lie mai mică 
decit suma razelor şi mai mare decit diferenţa lor ; |R2—RI | <Dsiii+R2. 

În cazul egalităţii, cercurile vor [i tangente. Se notează cu Ul unhiul 
format de dreapta ce uneşte centrele cercurilor cu orizontala şi U2 unghiul 
format de această dreaptă cu raza primului cere dusă în punctul de intersecție 
dorit. Coordonatele punctului de intersecție vor fi: 


XN=XI-+RI scos (U1-+F+U2) 
Y = Y1+Rlesin (UL +F+U2) 
Unde: F=1 pentru punctul din stinga dreptei ce unește centrele (privit din CI) 
şi —1 pentru cel din dreapta. 
Pentru calculul unghiurilor Ul şi U2 folosim relaţiile : 
Ul=ATN (G/H), sau z/2 dacă H=0 


şi 
U2 —arccos (R1?4+D?—R22/(2+R1+D) 


însă arecos va fi calculat prin funcţia ATN. 
Programul funcţionează în felul următor : 
1. Citeşte coordonatele centrului și raza XI, YI, RI pentru primul cerc. 


2. Citește toordonatele eentrului și raza X2, Y2, R2 pentru al doilea cere. 
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3. Citeste valoarea lui F (1 =punctul din stînga, —l =cel din dreapta) 


4, Caleulează valorile G, H și D. Dacă nu e verificată condiţia : | R2—R! |g 
<D<RI+R2 execuţia se oprește. 


= 
bi 


Calculează unghiurile Ul şi U2. 


5, Caleulează coordonatele X, Y ale punctului de intersecţie dorit, 
7 


isare grafică (eventuală) a rezultatului. 


3. Stop. 


DN PEM mmewmumn meu aomuununanea anume 
DOS REM "m CALCULIIL PUNCTELOR DE INTERSECTIE A DOUA CERCURI w»* 


O10 REM "ammnmrmmnmenaareemeamnnensonnnnrnaneremnenhb mau” 
015 DIM RS(1) 


PRINT "INTRODUCETI COORDONATELE CENTRULUI SI RAZA" 
PRINT: “PENTRU PRIMUL CERCIXI, YI,RL)";, 


INPUT Y1,YI,RI 
IF R1+-0 THEN 070 


O PRINT "PENTRU AL DOILEA CERC(X2,Y2,R2)" 
INPLIT X2,Y2,R2 
5 IF R2>0 THEN 095 
PRINT "RAZA NEGATIVA SAU NULA!" 
5 G0 TO S?0 


5 REM "CALCULUL MARIMILOR G,H,0" 


25 Gryz-ya 
100 H=v2-Yi 
105 D=SGR(G*G+H*H) 


11% PEM "VERIFICREA CONDITIILOR DE INTERSECTIE” 


125 IF DO THEN 14% 

130 IF RIC>R2 THEN 1558 

125 PRINT “CERCURI IDENTICE!" 

140 GQ TO 320 

11% IF D>RL+R2 THEN 155 

130 IF DeABS(RI-R2) THEN 120 

15% PRINT ""ERCLURILE NU SE INTERSECTEAZA!" 
150 60 70 0 


O REM "CALCULUL UNGHIULUL Ur 


UieP1/2 

IF G<>0 THEN 205 
TF H>0 THEN 235 
Ui==ui 

GO TQ 225 

5 LI=ATN(H/G) 

IF GO THEN 225 
UI=UI+P1 


REM "CALCULUL UNOHIULUI U2* 


LI=c(RIMRI +DaD-R2RR2) /L2xR LD) 
W2=P1/2 

IF Li=0 THEN 275 

L2=S0R( 1-LImLI)7L1 

UZ-ATN(L2) 

IF L1>0 THEN 279 

5 U2=u2eBl 


% PRINT "PUNCTELE DE INTERSECTIE AU COOKDONATELE:” 


p- 


290 
295 
300 
303 
310 
315 
320 
225 
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XX 1+RIKCOSCUL+Fxu2) 
Y=Y 1+RI*SIN(LUI +F*U2) 
PRINT "X="7%, "Y="Y 
F=iF 

IF F<>1 THEN 290 


PRINT "DORITI AFISARE GRAFICA(D/N)"ș 


INPUT RS 
IF R$<>"D" THEN 590 


REM "STABILIREA CONDITIILOR DE AFIŞARE" 


INIT 

IEWPORT 40, 140,0, 100 
A=X1 

p-X2 

GO Sue 543 

TinŢ 

Avi 

B-Y2 

GO SUE 545 

IF T>=Ti THEN 410 
TeT] 


) WINDOW =T,T,-T,T 


MOVE =T,-T 
DRAW T,-T 
DRAW T,T 

DRAW -T,T 
DRAW =T,-T 


REM "TRASAREA CERCURILOR” 


Je 2RP1+P1/10 
K=P1/10 


O MOVE XI+RI,YVIi 


FOR 10 TO J STEPr 

DRAW X1+RI*COS(I), YVI+RISIN(ID 
NEXT ] 
MOVE X2+R2,Y2 
FOR 1=0 TO | STEP K 

DRAW X2+R2=COŞ(1), YV2+RZSIN(I) 
NEXT 1 


REM "TRASAREA AXELOR" 


MOVE 1,0 
DRAW T,0 
MOVE 0,-T 
DRAW 0,T 
MOVE -T,-T 
GO TO 570 


REM "SURRUTINA DE CALCUL A COORDONATEI MAXIME" 
REM “PE O DIRECTIE DATA" 


TrABŞ(A-RI1) 
IF Ț>=ABS(B-R2) THEN 560 
T=ABS(B-R2) 
IF T>=AES(A+RI) THEN Ş70 


T=ABS(A+R1) 

IF TYxABS(B+R2) THEN 520 
T-ABS(E+R2) 

RETURN 


PRINT "DORITI ALTE CERCURI (D/N)": 


INPUT Rt 
IF R$="D" THEN 020 
END 


Fie o dreaptă D de ecuaţii parametrice : 


X=X+L cos T 
YD Sin P 
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unde: Xa, Y, Sint coordonatele unui punct precizat al dreptei, T direcţia 
dreptei, iar L este distanța de la punctul (X+, Y,) la punctul curent. 
„Fie un cerc C, de centru! (Xok Yo) şi rază R!de ecuaţie : 
(X—X9)+(Y— Yo) =? 

Pentru a se obţine tangentele din punctul (X,, Y,) la cercul C, se vor 
înlocui N și Y daţi de ecuaţia dreptei D în ecuația cercului. Se obţine : 
1) 124+2L (H cos T+V sin T)4-V24+ H?—R2=0 
unde s-a notat: H=X—X9 şi V=Y—Yo. 

Se presupune că punctul (X,kY,) [este exterior [cercului C, deci: 
/H2+ V2>R2. Condiţia ca dreapta D să fie tangentă la cerc este ca ecuaţia (1) 
de gradul doi în L, să aibă soluţie unică. Pentru aceasta trebuie ca : 


(2) (EH cos T+V sin T)=V2+H?—R? 
În rezolvarea acestei ecuaţii se disting două cazuri 
a) H3+0. Din (2) se obţine: 


REFER 


rp e 
Cos Lara sin T=+ i 


Fie FE —aretg (1). Înlocuind mai sus se obţine: 


cos (T—F)=+ Aa is 
R 
tan (I—F)= re 
( ) = VV24+H2—R2 
EI A DNA ec 79 1 i AIE 2 IEI 
ŞI deci Tu Sp arctg H ACE 


b) V7+0. Din ecuaţia (2), împărțind cu V rezultă: 


A V2-+- H2—R? 
sin (T+F)= |, 
unde I* este unghiul pentru care tan F= . 


Procedînd ca la cazul precedent, se obţine : 


ză H /V24 H2— RR? 
[e=—arctg — taretg| + sI? SME) 
y = R 
Se observă că în ambele cazuri se obţir două unghiuri T, corespunză- 
toare celor două tangente la cerc. Avînd direcţiile tangentelor determinate 
printr-una din cele două metode, soluția ecuaţiei (1) corespunzătoare unghiurilor 
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Ta și l2 va fi: Laa=—(H cos 134 V sin 11,2). Coordonatele punctelor de 
tangenţă se vor obţine înlocuind valorile obținute pentru T și L în ecuaţia 
dreptei D. S-au prezentat cele două cazuri de rezolvare a ecuaţiei (2), deoarece 


este posibil ca punctul (X, Y.) să se afle pe aceeaşi verticală sau orizontală 
cu centrul cercului. 


În aceste condiţii va rezulta H=—0 sau V=0. (Evident, H şi V nu pot 
fi simultan nuli). Programul va testa dacă Hz0. În acest caz, direcţiile tangen- 
telor vor fi determinate prin prima metodă ; altfel se va alege cealaltă soluție. 

Funcționarea programului : 

1. Citirea datelor 

a) centrul și raza cercului (X0, Y9, R) 

b) punctul din care se duc tangentele (XI, Yl) 


2. Testează dacă punctul dat este în interiorul sau pe conturul cercului, 
În caz afirmativ se va afișa un mesaj corespunzător și se va opri execuţia. 


3, Se determină direcţiile celor două tangente și coordonatele puncte: 
lor de tangenţă și se afișează rezultatele. 


1, Afişează (după dorinţă) grafic soluţia găsită. 


1 REM mamnunumumenezaneremunanunv asezam" 125 1F LI" ARS(XID THEN 195 
2 REM "m CALCULUL DREPTELOR DE TANGENTA ." 190 LET LI=ABS(X1) 

2 REM "m DINTR-UN PUNCT DAT LA UN CERC DAT »" 195 IF LLIYABS(YL) THEN 203 
4 REM "mmamnnnanmunemaunaenanneannenabemeea 200 LET LIrABS(YL) 

s REM "CITIREA DATELOR" 20% IF LI4)0 THEN 21$ 

& DIM D$c1) 210 Li=a 

? PRINT “ANTRODUCETI COORDONATELE CENTRULUI” LET Li=2uLi 


10 PRINT "SI RAZA CERCULUI (X0,Yu,R)” 

15 INPUT XO,YO,R 

20 PRINT "INTRODUCETI COORDONATELE PIUNCTULIIT (X1,Y1)” 
25 INPUT X1,Y! 

30 LET M=X1-X0 

35 LETŢ V=Y1=Y0 

10 LET D=SOR(V=V+HeH) 

42 REM "SE TESTEAZA DACA PUNCTUL (X1,Yt)” 
43, REM "ESTE IN INTERIORUL CERCULUI" 

45 IF DR THEN 7$ 

SO IF D-R THEN 65 

55 PRINT "PUNCTIIL ESTE INTERIOR CERCULUI” 


INIT 

VIEWPORT 10,90,10,90 

WINDOW LILI, =LI.Lt 

2 REM "TRASAREA CERCULUI" 

MOVE XO+R,YO 

FOR 1=0 TO 2*P1+F1/60 STEP P1/s0 
DRAW XO+R*COS(I), YO+RESIN(II 

NEXT 1 

»S2 REM "TRASAREA TANGENTELOR" 

MOVE Z71,W1 

DRAU X1,Yi1 

DRAW Z2,W2 


£0 STOP REM “TRASAREA AYELOR DE COORDONATE” 
£5 PRINT "PUNCTUL ESTE PE CERC* MOVE -u1,0 

70 STOP Ă DRAW L1,0 

72 REM "PUNCT EXTERIOR CERCULUI” 230 MOvE 0.-Ll 

73 REM "CALCULIIL PLINCTELOR DE TANGENTA” 28% DRAW O,LI 

7% LET RI=SOR(VV+HsH-R*R) 220 END 


80 IF H=0 THEN 100 

95 LET TIrATN(V/H)+ATN(R/RI) 

90 LET T2=ATN(V/H)-ATNI(R/RI) 

25 GOTO 110 

100 LET Ti=-ATN(H/V)+ATN(R1/R) 

10% LET Ț2=-ATN(H/VI-ATN(RI/R) 

110 LET Li=-tHsCOStTI )+VxSIN(TI)) 

11% LET La tHsCOStT2)+VnSIN(T2)) 

120 LEȚ Zi=XI+LIsCOsTI) 

125 LET Wi=YI+LI»SIN(TI) 

120 LEȚ 22=X1+L2»COS4(T2) 

125 LET Wa=YI+L2rSIN(T2) 

140 PRINT "COORDONATELE PUNCTELOR DE TANGENTA SINT: * 
115 PRINT "XA="321,"YA=":uU1 

150 PRINT “XE=": 22, "YB="W2 : 

155 PRINT "DORITI AFISARE GRAFICA ? (DA,NUj” 

150 INPUT DEC) 

145 1F DSt1)="D'THEN 220 , : > 
147 REM "DEFINIREA SPATIULUI LTILIZATOR” 

14 REM "SI A.PORTIUNII DE ECRAN PENTRII AFIŞARE” 
170 LET LI=ABS(X0» 

195. 1F LIXARS(YO) THEN 195 

190 LET LI=ABS(VO) 


Calcule cu polinoame 485 


12.13. Culcul cu polinoame 


Se va studia împărţirea unui polinom : a4X"-+azxe-1 4. a Fânei printr-u 
polinom ireductibil şi unitar peste R, anume cazul împărţirii prin x-pa şi 
mppx-tq. Coeficienţii polinomului cît: bX"-kbax- 1, baga, Vor fi detez- 
minaţi prin identificare în relaţia : 


(bx + bax + sas Aba) (x-ta)kbasa =a7X bagă sa. Pâaei 
ande cu baga s-a notat restul. Rezultăs 


bi =0 şi biuu=amab,, pentru i=l, 2, ...,nFl. 


Programul de calcul al coeficienţilor cîtului şi restului este dat mai es. 


Similar, se obţine și programul ce determină cîtul și restul împărţirii 
polinomului a4X*-hazX0-l-+ e, «-Faaza Prin polinomul x2-++px+q obţinindu-s e 
situl și restul rx+-s. 


Programele de împărţire se pot utiliza în descompunerea în factori a 
polinoamelor în găsirea rădăcinilor unui polinom, în calculul valerii unui 
polinom. 


LILI LILI LA LILI LL LL LL Lă 5 REM LET IL i 
3 pad “x IMPARTIREA UNUI POLINOM DE » 10 REM “ IMPARTIREA UNUI POLINOH D$ e 
REM “xGRAD N PRINTR-UN POLINOM  » 15 REM * GRAD N PRINTR-UN POLINOW 
REM *xDE GRADUL 1 : X+A L] 20 REM * DE GRADUL D01 L] 
40 REM “mmuaenunnaRANURRARR NM MEI te 25 REM "RuXXXRANRXRA RN NAN XR A ENA RRARD 
60 PRINT ” li 30 PRINT "N="; 
70 INPUT 40 INPUT NET AIA 
(N+1 9,82) 45 DIM A(N+ 
70 ru ş i 1 TO N-as ŞO PRINT N EA CTENTII POLINOHULUI * 
100 PRINT “At*:1;"ds*p 60 FOR I=1 TO N+i 
110 INPUT AtlJ 70 PRINT “At*4];")s*; 
120 NEXT L=10] ae Ab 
130 PRINȚ “As* 90 NEX 
140 TRPUT [.] i 100 PRINT "COEF. DIVIZ0RULUI* 
150 Bc1=0 110 PRINT *X*2+PnX+Q* 
160 POR 1 = 2 Ton 120 PRINT “P="; 
170 B(ty=Ati-a- pisat LEI 130 INPUT P 
180 NEXT 7 140 PRINT "Q="; 
185 REM 150 INPUT O 
190 REM “AFISAREA REZULTATULYI 200 Bt(1)=0 
200 REM 210 Bt2)=0 
210 FOR 1e2 TO No: 220 FOR 1=3 TO N+3 
220 PRINT "Bt*:1p*)=";Btio 230  B(l)sA(1-2)-P*B(1-1)=QxBt1=22 
230 NEXT 1 240 NEXT 1] 
240 PRINT *Rs*Bin+20 250 REM “AFISAREA REZULTATELOR” 
250 END 260 FOR 1=3 TO N+1 
270 PRINT “B(*;];*)=";B(î) 
280 NEXT îi 


290 PRINT “AFISARE REST: RX+S * 
300 PRINT “R=";B(N+2) 

310 PRINT "5=*;B(N+3)+PxB(N+22 
320 END 


12.14. Rezolvarea ecuaţiilor algebrice prin metoda Bairstow 


Ecuațiile algebrice, f (x)=0, unde f este un polinom pot îi rezolvate 
prin metode aproximative. În continuare se va descrie o metodă care constă 
in descompunerea polinomulu: în produs de polinoame de gradul doi (metoda 
1i — Mieroealeuiatorul personal aMIS — vol. II 
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Bairstow). Fie polinomul f (2) az -tazx +. „Fâsu şi (p, q) două 
numere. Împărțind polinomul prin x24+px-+q obţinem + 


n+l 


ă ay xatl-t= (5, b, si] (32-+px+ q)-+rx+s 


Prin identificare se obțin coeficienţii b,, r şi s în funcţie de p și q: b=bs=0 și 
(1) bi=a-2—Pbi-a—Qbi-2 pentru 3s<is<n+3 
(2) iar, T=basa ȘI S=basstPbasz 


Va trebui să se găsească p şi q astfel încît: r(p, q)=s(p, q)=0. Acest 
lucru revine la rezolvarea sistemului : 


r+ Ap 2 +Aq- =0 


s--Ap 2 +Aq — = 


Pentru calculul lui Z, se vor calcula a prin recurenţă din expresiile 


obţinute prin identificare (1). 


Notind ca pentru 1s<isn+3, şirul c, va fit cy=cs=0 și 
Bg ba —PCi-a—QCi-2 pentru 3sisn+3. 
Din formulele (2) se obţine: 


ar âs 
3 Ca şi za 9 Cana 


Pe de altă parte, derivînd formulele (1) se obține : 


2b, 


În 0 + s 
34 =Ci= deci aq =Cau ŞI za =C po FPC aa: 


2 q 


Sistemul (3) se va rezolva prin metoda Cramer : 


d= C2ppFCast (Cast bn +2) 


CagiPayt— banana : —başi (QC + PCa4 2)—bay3Cnș2 
Ap d şi Aq= ea ai patati 
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Se defineşte apoi un şir de puncte (p”, q') care, în principiu, converge 
către un punct (p, q) încît: x2+px+q divide pe £ (x). Practic, numărul de 
puncte (iterații) este limitat la k=—100, în program, utilizindu-se ca condiţie 
de oprire: 

Ap | + | Aq| 


<s 
lpl+|a] 


(e fiind luat 10-* în program). 
Ecuația x2-+-px+q=—0 este apoi rezolvată în C folosind formulele uzuale. 


n+i 
. . x » : 
Programul continuă cu polinomul cît 3, b,x2+1-!, dacă gradul său este mai mare 
i=3 
decit 2. 

60 REM mnnnannannnnnannnmunnmnnnmmanana 570 REM “ULTIMUL FACTOR" 

65 REM n” REZOLVAREA ECUATIILOR ALGE- » S80 REHN 

70 REH wm" BRICE-HETODA BAIRSTOU- iai $90 IF N=2 THEN 620 

75 REM munmnnnrnrnnwnmemamnnnannennnnnu 600 X=-A(2)/At1) 

80 PRINT "GRADUL N=*; 603 Y=0 

90 INPUT N 610 GOSUB 800 

95 DIM A(N+1),B(N+3),C(N+3) 620 GOTO 650 

100 FOR I=i TO N+i 630 P=A(2)/At1) 

110 PRINT “A(*;];*)=*; 635 O=A(3)/Al) 

120 « INPUT A(P) 680 GOSUB 670 

130 NEXT 1 659 SToP 

150 P=0 670 REM "REZOLVAREA EC.:X"2+PnX+0=0" 
155 0=0 680 REH 

160 h=100 6970 D=P*P-â*Q 

165 E=.001 700 IF D<O THEN 750 

170 REM * TEST ASUPRA GRADULUI 710 D=SaR(D) 

180 REH 715 Y=0 

210 IF N <= 2 THEN 370 720 X=t-P+D)/2 

220 REM "CAUTARE P SI Q 725 GOSUB 800 

230 REH 730 X=(-P-D)/2 

240 REM "INITIALIZARE CONTOR CICLURI 735 GOSUB 800 

260 J=0 740 RETURN 

280 1F J>K THEN 990 750 D=SQR(-D)/2 

290 J=J+1 753 X=-P/2 

300 REM "CALCULUL COEFICIENTILOR 760 Y=D 

310 REM *B(Î) S1 C(1)* 765 GOSUuB 800 

320 B(1)=0 770 Y=-D 

322 B(2)=0 775 G0SUB 890 
324 C(1)=0 780 RETURN 
326 Cct2a)=0 800 REH "AFISAREA REZULTATULUI” 
330 FOR 1=3 TO N+3 820 IF Y=0 THEN 850 

340 B(1)=A(1-2)-PmB(1-1)-Q*B(1-2) 830 PRINT X;"+(";Y;*)1* 

350 CtI)=-B(1-1)-PaeC(]-1)-anC(1-2) 840 RETURN 

360 NEXT 1 850 PRINT X 

370 REM "CALCUL DP SI Da” 970 RETURN 

380 REM 990 PRINT "PROCES DIVERGENT" 
390 X=B(N+2) 999 END 


392 Y=B(N+3) 

394 2Z=C(N+1) 

296 T=C(N+2) 

398 U=C(N+3) 

400 D=T*2-2m(U+X) 

410 IF D=0 THEN 990 

420 a=(2aY-XxT)/D 

430 B=(-X*(amZ+PnT)-YnT)/D 

440 REM “NOILE P SI Q* 

450 P=P+A 

455 Q=a+B 

460 F=(ABS(A)+ABS(B))/(ABSI(P )+ABS(Q)) 
470 IF FXE THEN 280 

480 REH "S-A GASIT POLIN, FACTOR* 
485 REM 

490 GOSUB 670 

S00 REM "INLOCUIREA POLINOMULUI * 
510 REM 

320 N=N-2 

530 FOR 1=1 TO N+1 

540 AI )=BLI+2) 

S50 NEXT 1 

960 GOTO 170 
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12.15. Metoda celor mai mici pătrate 


Metoda celor mai mici pătrate este o tehnică curentă de determinare s 
unei curbe y=f (x) ce aproximează o mulţime de puncte date: 


(Y» Xa), (Ya, X2), a... (Yar, Xa). 


Metoda constă în minimizarea sumei patratelor „distanțelor“ : MARAR... 
sa. Fd2, unde d;=y—f (x) este distanţa între ordonata punctului dat și 
cea aproximată. Metoda este aplicată frecvent pentru funcţii exponenţiale 
san polinomiale. În toate cazurile, metoda necesită rezolvarea unor sisterae 
de ecmaţii algebrice liniare, necunoscutele fiind coeficienţii ecuaţiei curbei. 
De exemplu, se dorește aproximarea a M puncte date prin curba y=ax?. Pen- 
tru aceasta trebuie rezolvat un sistem de două ecuaţii cu necunoscutele a și B. 
Ecuațiile se obţin prin logaritmarea ecuaţiei y=ax” şi anularea derivatelar 
parțiale în raport cu log.a și b: 


M Mo 
M-log a-+ Y, (log x) b= YI logyi 
i=l i=l 


M M M 
| Ş, log x.) log a + ( Ş, (log 2) b= 3, (log x) (log y,) 
=) i=l îl 


Aceste ecuaţii sînt liniare în loga și b. 
Dacă se doreşte aproximarea prin curba y=ae”*, atunci trebuie sa se 
rezolve sistemul : 


M M 
M-log'a-+ | > *.) b= Yi log yi 
i=l | i=l 


M M M 
(5 *.) log a+: (3 4) b= d Xu Log]y +. 


Pentru aproximarea printr-o funcție polinom : Y=C+GoXP aa Pui”, 
coeficienţii C, se vor obţine prin rezolvarea sistemului : 


M M M 
M "Ca + (5 :.) Ca+,..+ (3 x] Casi a Y, 


M M M M 
(e) ere (Serra (3 oi ea as 


— — -. a. .. ... o. ne on o. sn m e. [ me a o. a. v. a. ve ema oma 


M "M M M 
(oz): (rent: (ee aer 
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Yoate aceste exemple conduc la rezolvarea unor sisteme de ecuaţii liniare 
pentru care vom utiliza instrucţiunile matriceale disponibile în limbajul 
DASIE. 


Exemplu[ide program 


5e dorește găsirea unei funcţii (putere, exponențială, sau un polinom de grad mal mio 
decit b), care aproximează cel mai bine un număr de puncte date (maximum 100). Coordonatele 
Ti, 3. ale punctelor vor îi convertite în logaritmii lor de către program, dacă va fi necesar. Numă- 
rul de puncte date şi tipul curbei de aproximare fiind variabile, se vor utiliza facilităţile de 
radimernsionare a tablourilor. 


Programul va imprima ecuaţia curbei de aproximare cu coeficienţii calculaţi, lista coor- 
donatelor punctelor date şi lista valorilor funcţiei (y (,)) ce le aproximează, precum și eroarea 
comisă (suma pătratelor). Valoarea erorii va fi utilizată pentru alegerea tipului funcţiei de apro- 
ximare. Variabilele utilizate de program sint următoarele i 


Xwm= vector de 100 de clemente ce va conţine valorile x, introduse 

Ya vector de 100 de elemente care va conţine valorile y, introduse 

Am matrice de 10) linii și 109) coloane ce va conţine coeficienţii necunoscutelor sistemului de 
ecuaţii liniare 

Bis imversa matricei A 

dm vector de 10 elemente conținînd necunoscutele sistemului. 

Dn vector de 10 elemente! ce conţine al doilea! membru al sistemului 

Bim nemărul; de puncte 

Sa variabilă ce indică metoda de aproximare, dorită 1 


50 pentru funcţie putere) y=ax? 


i=1 pentru funcţie exponențială! ys=ae* 
N 


2, 3 ..., 10 pentru funcţie polinom y= p Curt? 
1 m» umărul de ecuaţii simultane a 

Hi2 dacă N=0 sau 1 

Kil=N dacă N=2, 3, ...110 


3. Programul funcţionează; astfel 


- 


. [Citește datele 
a) Citește M valori pentru y; și M valori pentru x, 
b) Citeşte valoarea lui N care dă tipul curbei de utilizat 


Calculează log x, și log Yp dacă ) =, sau log y, dacă N=1,.pentru i=1, 2, ,..,M. 
Caiculează elementele tablourilor [A şi D, utilizînd formulele corespunzătoare curbei alese 
Rezolvă sistemul de! ecuații. 

Afişează ecuația! icurbei 


Galculează valorile y (4), pentru i=1, 2, ...„ M 
Caiculul erorii, suma pătratelor distanțelor d24-d24 ...4-d3, 


ase pp 


î. Afişarea coerdonatelor x, y, și a valorii funcţiei y (x,), pentru i=1, 2, ..., M, apol afișarea 
erorii. 
De netat că dacă N==0 sau î, trebuie reconvertite valorile log y, și log x, în y, şi respectiv 
îns. 


166 


9. Se reprezintă grafic punctele (x, y.) şi apoi se trasează curba care unește punctele de inter- 


polare calculate. 


10. Dacă se doreşte o nouă rulare cu aceleași date, se revine la punctul 1.b). 

Instrucţiunile MAT ZER din liniile 200, 205 realizează redimensionarea matricei A și 
a vectorului D la fiecare nouă execuţie a programului. În liniile 370 și 375 tablourile B și C sînt 
implicit redimensionate pentru a corespunde matricei A și vectorului D. Rezolvarea sistemului 
de ecuaţii este substanţial simplificată prin utilizarea instrucţiunilor matriceale (liniile 370 


şi 375). 


VONBABuN= 


O REM “CALCULUL LOG(X) 
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REM 
REM 
REM 
REM 


SNRGRRRRNREN N DRE 
" APROXIMARE PRIN METODA &* 
"a CELOR MAI MICI PATRATE =" 
"axon aapoceazaamaaae” 
DIM X(€100),Y(100),2(100) 

REM “CITIREA DATELOR" 

PRINT "CITE PUNCTE DEFINITI ?* 
PRINT “M=" 

INFUT M 

PRINT "INTRRODLUCETI ORDONATELE Y» 
MAT INPLIT Y(m) 


= PRINT "INTRODUCETI ABSCISELE x" 
= MAT INPLT X(M) 


REM "CITIREA DATELOR" 

PRINT "INTRODUCETI; N=0 PENTRIJ PUTERE" 

PRINT ” N=1 PENTRU EXPONENTIALA* 
PRINT * N=NR, TERMENI POLINOM" 
PRINT "Na 

INPUT .N 

SI LOG(Y)" 


O REM “DACA E NECESAR" 


IF N>=2 THEN 170 
FOR I=! Tom 
Y(AYaLOGIVCID) 

NEXT 1 

IF N=1 THEN 170 
FOR l=1 T0M 

XCIDSLOG(X(DDD 

NEXT I 


O REM "CALCULUL MATRICEI A" 


REM “SI A VECTORULUI D* 
NI=N 
IF Ni>=2 THEN 200 
Ni=2 
MAT A=ZER(MI,NID 
MAT D=zERINI) 


O At1,19=M 


260 
365 


Nz=25N1-1 


5 FOR Di1=2 TU N2 


s=0 
FOR K=1 Ta m 
=SFX (KIA DI) 
NEXT K 
POR J=4 TO nt 
Sashieu+i 
1F ANI THEN 265 
IF S2>N1 THEN 2643 
A(S2, 9323 
NEXT 
IF D1>N1 THEN 265 
FOR Hei TOM 
VE: ) =DALr )+Y (RD RX (K)" (Die 
NEXT k 
NEXT Di 
FOR K=1 TOM 
perD=fita)+VK) 
NEXT K 
REM 
m "REZOLVAREA SISTEMULUI» 
i] 


Metoda celor mai mici pătrate 


MAT EINV(AD 

MAT C=ExD 

REM 

REM “TIPARIREA ECUAȚIEI» 

REM 

ÎF N>1 THEN 420 
CI=EXP(C(1)) 
IF N=1 THEN 420 


PRINT "PUTEREA V="pCigeRgaeCt2) 


GOTO 490 


PRINT "EXPONENTIALA V="pC1ş *sEXP(“ 4 C(2I3 “ate 


5OTO 490 

IF C(2)>=0 THEN 445 
PRINT “POLINOM V="5G(1)3CC2)p xp 
GOTO 450 


PRINT "POLINOM Y=“sC(19p"eaC(2)p aka 


IF N=2 THEN 425 
FOR I=3 TON 
IF C(I)>=0 THEN 475 
PRINT C(I); "x" "i 1-19 
GOTAa 420 
PRINT "+ "9 C(1)3 "ke l=is 
NEXT 1 
PRINT 
REM 
REM “AFISAREA REZULTATELOR* 
REM 
IF N>=2 THEN 545 
FOR 1=1 TOM 
YVIIIsEXP(Y(L)? 
NEXT 1 
IF Ni THEN S45 
FOR I=1 T0 M 
X (II=EXFEXCL)D 
NEXT ! 
PRINT 
PRINT "Y(DAT)”, "Y(CALCULATI* 
s=0 


O FOR I=1 T0mM 


IF N>=2 THEN 595 
IF N=1 THEN Ss% 
VIsCisXcID"C2) 
GOTO 415% 
VI=CIsEXPIC(2IRXLI)) 
COTA 615 
Vi=Ci(1) 
FOR J=2 TON 
VI=YI+C(d) XI) (det) 
NEXT J 
S=S+(Y(1)-Y1)*2 
PRINT Y(ID,Y4 
z(I)=Y1 
NEXT 1 


O PRINT 


PRINT "EROAREA="7$ . 
REM "CALCIILUL VALORILOR MAXIME” 
REM "PENTTRU CELE DOUA COORDONATE" 
U1=ABS(X(1)) 


O Ha=ABS(Y(1)) 


FOR I=2 TO M 


TF LIL>=AES(X(1)) THEN 670 
UL=ABS(X(15) 
IF U2>=ABS(Y(1)) THEN 680 
W2=ABS(V(1)) 
NEXT 1 
WINDOW =U1,U1,-UZ,U2 
T=U2/S0 
INIT 
FOR I=1 TOM 
MOVE XI), YET 
DRAW XCID,Y(I) 
NEXT 1 
MOVE XCI),Z(1) 
FOR 1=2 TOM 
DRAW XCID,Z(I) 
NEXT 1 


PRINT "INTRODUCETI VALOAREA 1 PENTRU" 


PRINT "OPRIREA EXECUTIEI" 
INFUT $ 

IF S<>1 THEN 15 

END 
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18.16. Transformata Fourier rapidă 
ui Yransformata Fourier constituie de mai mulţi ani un instrument mate- 
matio utilizat în numeroase domenii, ca de exemplu în optică, acustică, fizică 
suantică, telecomunicaţii, teoria sistemelor şi a proceselor aleatoare etc. 
Fourier a demonstrat că orice semnal periodic poate fi considerat ca e 
sombinaţie de oscilații sinusoidale- de frecvenţe î0, 210, 310... Astfel, dacă 
x (t) reprezintă amplitudinea semnalului în funcţie de timp, x (t) se poate scrie 
ca suma unui număr oarecare de funcţii sinusoidale. Deoarece pentru fiecare 
semnal, fazele iniţiale nu sînt identice, sin et devine sin (ot-+ep)e 


sin (0t+9)= sin ot cos e-+-sin e cosțat 


umde cos q și sin q pot fi considerați coeficienţi. 
Astfel, toate funcţiile periodice se pot descrie în felul următor s 


X (î)m=Aog-ka, sin ot-+-b, cos at 
ag sin 2wt4+-ba cos 2ot 
“Fag sin 3wt4+- ba cos 3ot 


Pa... 
AR "a : 5 : 
unde: e e „= 2ri (2 pate perioada şi f frecvenţa semnalului) ; 

87, A2, ac. Du be, „.. sînt constante care reprezintă amplitudinea (is- 
aărela din componente ; 

Ag este valoarea medie. 

Această relaţie reprezintă descompunerea în serie Fourier a funcţiei 
perioadice x (t). În continuare, problema principală este calcularea coeficien- 
ților As, ax, bu, a2, ba, ..., care se numesc coeficienţii Fourier. 

Deoarece A( este valoarea medie a semnalului periodic x (€), acest costi- 
silent se calculează imediat cu relaţia: 

E: 
A0= ICR A x (t) dt 


Fowrier a demonstrat că ceilalți coeficienţi se obţin din formulele : 


a et 
i Be A x (t) sin notăt 


2 44 
i-a Ș. x (t) cos notdt. 


Be definește transformata Fourier a unui semnal continuu x (t) prir 
Integrala o 


+ 
K6j= aa: x (£) e- 2inetat 
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Parametrii t şi f reprezintă în general timpul și frecvenţa, dar foarta bine 
acest calcul se poate aplica la o mare varietate de fenomene unde t și f pot 
reprezenta alţi parametri. 


Vransformata Fourier inversă se defineşte prin relația u 
+0 E A 
* (te 52 >4 (î).eziatt ai 


Prin utilizarea dispozitivelor numerice se obține adesea un semnal discret 
x (n), printr-o eşantionare a semnalului iniţial x (t). În acest caz integrala 
Fourier definită mai sus poate fi înlocuită prin transformata Fourier discretă î 


NI 
XW)= Î x (a) esaimeng 
la=g 


ande k =0, Î; ... N—I. 


sa Mulțimea celor N valori x (n) constituie o reprezentare discretă a fune- 
ției x (t), iar cele N valori X (k) o reprezentare a spectrului X (£) + 


x (n) x() 
x (ho X() 


Algoritmul transformatei Fourier rapide permite reducerea timpului de- 
execuţie a unei transformate Fourier discrete. 

Transformata Fourier discretă a unei secvenţe finite de valor (x (n)f, 
0<nsN—1 poate fi prezentată într-o manieră mai practică a 


N=i 
X(k)= Îi x (n) 


n=0 
E oare 


unde 
"7 ANRE gin 9 


Aceustă relaţie arată că pentru o secvenţă de N numere o evaluare directă 
necesită (N—1) înmulţiri și N.(N—1) adunări. Pentru valori ale lui N, de 
exemplu 1000, ca ordin de mărime, un calcul direct implică o cantitate foarte 
mare de calcule, chiar și pentru un sistem puternic. 

Principiul transformatei Fourier rapide constă în separarea secvenţei 
inițiale de N valori în două secvenţe mai scurte ale căror transformate discrete 
pot fi combinate pentru a produce transformata discretă a secvenţei de N 
puncte. cela 

Astfel, dacă N este par şi secvenţa originală a fest împărțită în două see- 
venţe de N/2 puncte, este necesar un număr de înmulţiri de ordinul N?/2 pentru 
a evalua transformata discretă pe N puncte. Dacă N/2 este la rîndul său par, 
atunci secvenţa de N/2 valori se poate de asemenea împărți în două secvențe 
de cîte N/4 valori fiecare, pentru care se calculează independent transtor- 
matele și procedeul poate continua, obținîndu-se de fiecare dată creşterea vite- 
zei cu un factor de aproximativ 2. Dacă N este e putere a lui 2, procesul se 
poate repeta pînă la calcularea în final a transtermateler pentru două puncte, 
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Programul BASIC prezentat efectuează calculul transformatei Fourier 
discrete pentru „un semnal definit, introdus în liniile 170 la 200 : 


x (n) =sin (27n :8,555/N) 


unde n=l, 2, ss. N 


10 
40 
4 
So 
40 
70 
eo 
o 
100 
105 


Lă 
PCM"TRANCTORMATA, FOURIER RAPIDA” 
INPUT te 
PRINT"MMAP DC VALORI DISCRETE 2 “N 
M=LOIG(ND /LOG(2) 
DIM FM 
DIM RM 
DIM acm 
DIM XD 
PU 
PleA*ATNt1) 


110 FOp K-1 To Mie 
120 PURLISZEPUD 
170 NE € 
140 4 
150 
140 
IZA FOR H-1 TON 
120 R(KI-SIN(BIKD 
1%0 C(KD)=0 
200 NEXT HK 
2140 oa 
241 M9=N=4 
AR AIA 
250 FOR 1-1 TO M9 
220 IF 1>-y9 THEN 300 
270 TIR 
234 Ta) 
280 RUJ-RUI) 
351 DUAL) 
290  R(II-Ti 
224 Q(IrTa 
00 H=M2 
210 1F K>=y THEN 220 
Şi dd 
n: cata ca Vii 
219 GOTO 210 
320 drd+k 
30 NEXT 1 
370 rar K- Ton 
icizI0] L2=PUD 
iciaă i LirL9/2 
290 U9-a 
291  U8=0 
100 W9-COS(PA/L(3 
101 WE-SIN(P1/L13 
110 FOR J-1 TO LI 
420 FOR 1=9 TO M STEP L9 
420 EO-R(I) 
121 ES=0(1) 
140 1S=1+L1 
130 TI=R(I9)RU9-0c19)*u8 
120 T2=R(19)KUS+0(49)xU9 
170 R(I9)eE2P-TI 
171 Q(19)=B3-T2 
120 RCIDrEI+Ti 
Asi C(ID=BO+T2 
470. MEXT 1 
S0%0 U7=U?54 9 uzine 
s10 (zii Masi Dia Nicio pă 
s20 U?=U7 
$30 NEXT 
10 NEXT n 
Sso FOR H-1 TON 
570 XC CCRCKIRRIKDD TORI EQ (RDI) 
£00 NEXT K 
£€10 PRINTrk e 
S70 PRINT" kK REAL PMAOINAR AMPLITUDINE” 
4 PRINŢ mm ao mo ii 
620 FOR k-1 TON 
eo PRINT F;" "; 
€30 PRINT INT(100005R(F)), INT(10000*0tK)), INŢ(10000xX(k)) 
=55 PRINT 
-at0 NEXT K 
sto END 
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Pornind de la secvenţa de N valori x (n), se generează două secvenţe de N/2 
puncte fiecare x, (n) și Xe (n), prima conținînd termenii de rang par din sec- 
vența inițială, iar a doua termenii de rang impar: 

Xa (n)=x (2n) 


să X2 (n) =x (2n+1) 3 
unde n=0, 1, 2, ... N/2—1ă 
Se poate arăta că transformata Fourier discretă a secvenţei iniţiale se 


scrie făcînd compunerea transformatelor Fourier pentru cele două secvenţe 
inițiale x, (n) şi X2 (n): 


X (00) = Xa (0) + WfXar e) 
unde X (k), Xa (k) şi Xe» (k) sînt transformatele Fourier discrete ale secvenţelor 
X (n), X(n) şi x2(n) și: 
WR = 1(27/N) k 


Datorită proprietăţilor de periodicitate ale transformatei Fourier, relaţia 
precedentă se poate scrie de asemena : 


X (k) = Xa (k—N/2)—Wk, Xa (k—N/2) 
pentru k cuprins între N/2 şi N—1, iar: 


W&+NP =Wk “WNR=—Wk 


12.17. Simularea salturilor unei mingi 


Se va descrie mișcarea unei mingi de cauciuc care sare sus-jos sub efectul 
greulăţii proprii și în același timp se deplasează pe orizontală cu viteză con- 
stantă. Se presupun date: înălțimea iniţială de la sol (H), viteza orizontală 
(V) şi numărul de salturi ale mingii (N). Se dă de asemenea coeficientul de resti- 
tuire (C) definit ca raportul vitezelor imediat după și înainte de salt. 

Pentru a calcula poziţia mingii în timp se dă un increment mic de timp 
(D) şi se aplică legile fizicii pe acest interval:j 


T(U+D=T(D+D 
ȚIX ((+1)=X (D+V*D 
ră Z (+1)=7 (D—G*D 
TIȚ YO =Y 0057 D+Z (0+1)*D 


Unde: PAR 
X este deplasarea pe orizontală (iniţial nulă), Z este viteza pe verticală 
(de asemenea nulă la plecare), Y este înălțimea deasupra solului, G este accele- 
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rația gravitaţională (9,81 m/s2). Indicii 1 și 14+1 corespund valorilor diferitelor 
variabile la începutul și la sfîrşitul incrementului de timp. 


Dacă are loc o ciocnire pe durata incrementului de timp, formulele ce se 
aplică sînt puţin modificate. Prezenţa unei ciocniri este semnalată printr-o 
valoarea negativă a lui Y (141), ce ar fi imposibilă fizic. Cînd se produce aceasta, 
2 (+1) şi  (1+1) se recalculează ca mai jos. 

Mai întîi se calculează timpul necesar mingii pentru a atinge pămintul, 
plecînd din poziţia sa de la începutul incrementului de timp. Dacă se notează 
acest timp, DI, atunci: 


DI =D*Y (0) (IV) 
Se calculează apoi, viteza pe verticală imediat inainte de ciocnire e 
Z=Z (D—G*Dl 
Viteza pe verticală imediat după ciocnire va fi deci: 
Zl=—C*(Z (1)—G*D1) 
Înălțimea deasupra solului la sfirșitul incrementului de timp este a 
Y (1+1)=0.5*%(Z14+Z (14+1))*(D—D1) 
ar vitezu pe verticală la sfirșitul incrementului de timp : 
ZU-+1)=zI—G* (D—D1) 
Programul funcţionează astfel: 
1. Citeşte valorile H, V, N, C şi D şi testează validitatea lor 
2. Iniţializează parametrii : 
1=l1 (contor de incrementare)  X (1)=0 
B=0 (contor de salturi) Z (1)=0 
T (1)=0 Y (1)=H 


3. Calculează deplasarea pe orizontală şi pe verticală, şi viteza pe vert.- 
cală cu ajutorul formulelor de mai sus. 

4. Dacă mingia loveşte pămîntul pe parcursul incrementului de timp 
se testează dacă trebuie calculat saltul următor sau se termină programul. 

a) Dacă B<N se recalculează viteza pe verticală și « plasarea pe verti- 
cală cu formulele modificate, se incrementează contorul de salturi (B=B+1) 
și se trece la incrementul de timp ur: ător. 

b) Dacă B=N se calculează timpul și deplasarea pe orizontală în mo- 
mentul ciocnirii. 

5. Afişează valorile lui X şi T urmate de o tabelare completă pentru 
TX, Y şi 2. 

6. “Frasează grafic Y funcţie de T, 
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7. Se reîntoarce la pasul 1. Dacă se introduce H=—() se iese din program. 

Programul acceptă 100 de incrementări de timp. D trebuie ales astfei 
încit să existe între S$ și 20 de puncte de fiecare salt. 

Calculul valorilor T (1+1), X (1+1), Z(I+1) şi Y (1+1) este efectuat 
de un subprogram. 

Se observă că de fapt programul integrează ecuaţia diferenţială d2y /dt? == 
—g eu ajutorul metodei Euler modificată. 


007 REM me ee et te 6 DE PE d în 0 d DD 0 DA RD DE DE E e e e e de e 310 DeDeYiTI (Yva 

005 REM *w» SIMULAREA SARITURII UNEI MINGI »* 215 GO SUB sso 

010 REM “ammunnzrnnmunn ema mamei ete bi 320 1i=i+i 

015 32$ Ți=TiIt) 

070 REM “INTRODUCEREA DATELBR SI VERIFICAREA LOR” 320 Xi=ătIi) 

025 325 

030 DIM Yt100),Y(100),2(100),Tt100),Dst1) SAO REM "AFISAREA REZULTATELOR NUMERICE” 

035 PRINT "INALTIME INITIALA(M); (CO=STOP)*s 245 

010 INPUT H 330 PRINT "DISTANTA ORIZONTALA PARCURSA="; 13 Me 

045 IF H>=0 THEN 040 335 PRINT “TIMPUI CERUT="sTiş” s* 

030 PRINT "INALTIME NEGATIVA-GROARE!* 340 PRINT 

055 60 TO 005 361 PRINT "TIMP", “DIST.ORIZ.“, "INALTIME", "VIT.VERE. - 

060 îF H=0 THEN 600 362 PRINT “=sszsansnnns=essezenssssameneseze 

065 PRINT "VITEZA ORIZONTALA (M/S)"; 365 FOR IstaTO 11 

070 INPUT V 370 PRINT "Te" T(1), "XX (1), "Va VI), 200 Zero 

075 PRINT "NIUMAR DE SALTURI"; 371 PRINT 

090 INPUT N 375 NEXT 1 

035 IF N>=0 THEN 100 380 PRINT 

090 PRINT "NLIMAR DE SALTURI NEGATIV-EROARE!” ze3 

075 GO TO 075 370 PRINT "SOLUTIA GRAFICA A PROBLEMEI (D/N3 = 

100 PRINT "COEF ICIENT DE RESTITUIRE": 875 

105 INPUT C 400 INPUT 19 

110 IF Ce-i THEN 12% 405 îF D$4>"D" THEN 025 

115 PRINT "COEFICIENT SUPRALINI TAR-EROARE | * 410 INIT 

120 60 TO 100 315 VIEWPORI 20, 140, 10,90 

125 PRINT "INCREMENT DE TIMP(S)"s 420 L=-11/10 

120 INPUT D 425 R-11811/10 

193 IF DO THEN 150 420 B=-H/10 

140 PRINT "INCREMENT NEGATIV SALI NUL-EROARE!" 433 T-118H/10 

145 GO TO 123 440 WINDOU L,R,B,T 

150 PRINT 411 MOVE L,EB 

155 REM “"INITIALIZARCA PARAMETRILOR” 442 DRAW R,EB 

1c0 443 DRAW R,T 

1€5 PrTii)=ktpd=2t1)=0 484 DRAW L,T 

170 Y(9d=H 415 DRAW L,B 

175 6-o.8i aa 

120 450 REM "TRASAREA AXELOR” 

195 REM "CALCULUL VITEZEI SI AL DEPLACARII* 455 

190 REM “PENTRU FIECARE INCREMENT" 450 MOVE L,0 

193 465 DRAN R,O 

200 FOR 1-1 TO 9? 470 MOVE 1,R 

295 GOSIUE S50 475 DRAW 1,T 

219 îF Y(1+1))0 THEN 250 430 

215 IF BN THEN 810 485 REM "TRASAREA CURBEI * 

225 DisDaY (IO /YCLD=Y(I+1)) 470 

230 D2=0 495 MOVE 1,H 

225 Z1=-Ce(Z(I)-O4D1) S00 FOR I»2 TO 11 

240 Z(I+1)=Z1-G*cD-D1-n02) S05 DRAU 1,Y(1) 

243 Y(I+19=0, Se (21+2(1+1))x(D-D1-D2) S10 NEXT 1 

230 E=R+1 515 MOVE L,E 

255 IF Y(1+1)>0 THEN 280 S20 GO TO 035 

250 IF E=N THEN 810 S25 

240 Copaceeriaal a 330 REM "SUBPROGRAM DE CALCUL AL VITEZEI SI 4 * 
=Ca 35 REM "DEPLASARII € EMENTULU 

275 GO TO 240 540 a ia dă 

280 NEXT 1 S50 Tilziv=T(10+D 

282 199 SS XiIet)=XCID+VeD 

223 GO TO 220 560. ZUL+ID=Z(1)-GeD 

290 & S65 YVUI+1)=Y(1)+0.,5%12(1+2)+2(1)3*D 

293% PEM “ULTIMUL SALT" 370 RETURN 

300 800 END 


12.18. Exerciţii de despărţire a cuvintelor în silabe 


Programul constituie un exemplu simplu de aplicare a învăţării progra- 
mate. Se afișează cîte o regulă de despărțire în silabe, urmată de un exemplu. 
În continuare sînt date mai multe exerciţii de verificare pentru regula respec- 
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tivă. Regulile și exerciţiile sînt codificate prin DATA începînd cu linia 500 din 
program, putîndu-se adăuga noi reguli și exerciții. 


10 DIM E$(32) o 
20 Nat eee met A 
30 INIT 600 DATA * HOT A -RI -RBE=1* 
40 PRINT * DESPARTIREA CUVINTELOR IN * 610 DATA * HO - TAR - IRBE 22" 
45 PRINŢ e none 620 DATA * HOT - AR -IRBE = 3 
So PRINT * SILABE * 630 DATA * HO - TA- RI - RE 34" 
S5 PRINŢ n --=--- 640 DATA *0*,4,"2» 
60 PRINT * REGULA N 650 DATA 4 
70 PRINT * == :---.. 660 DATA * DINTRE DOUA VOCALE SUCCESIVE * 
80  GOSUB 340 670 DATA * CARE NU FORMEAZA DIFTONG * 
90 READ ES(TO) rena Bata " PRIMA APARTINE SILABEI DINAINTE * 
. . 6 DATA * A DOUA CELEI URMATOARE « 
a LEA NI aa AXBAPU ! 700 DATA * CE - RE - A - LE; LU - A" 
120 PRINT 710 DATA * IN - DI - VI - DUA - LI - TA - TE at * 
130 PRINT * EXERCITII * 720 DATA * IN - DI - VI - DU -A - LI - TA - Tâ 2.2“ 
140 READ E4(T0) 730 DATA * *0*,2,v1» 
150 1F E6(2T02) = "0" THEN”180 740 DATA * PO - DE-A - UA = 1" 
160 PRINT ES 750 DATA * PO - DEA - UA =>2 * 
170 G0T0 140 760 DATA *0*,2,"*2* 
180 READ R 770 DATA 5 
190 1 =0 780 DATA * DACA E URMATA DE DOUA * 
200 PRINT * RASPUNS? * 790 DATA “ SAU MAI MULTE CONSOANE * 
210 INPUT E 800 DATA * PRIMA CONSOANA TRECE LA SILABA * 
220 IF E » R THEN 260 810 DATA * DINAINTEJCEALALTA (CELELALTE) * 
230 1 =1 820 dna LA SILABA URMATOARE « 
. . 830 DATA * E - XIS - TA ; CO - REC - TA” 
260 LE 1 <> O THEN 280 850 DATA * MUNT - E -N - tA=2" 
270 PRINT * FELICITARI * 860 DATA * HUN - TE-N- IA=.3"* 
280 READ ES(T0) bă DATA sa UA SAL - NI -An.â” 
e *1* fi 4 „de 
reia aa sta . Ri i-l pa 890 DATA * PER - SON -A- LI - TA-TBEele 
zona 70 MAC pee a ca cracretat 
. A E. ie - a 
Rat da Ş semne vo 920 DATA * PER - S0 - NA - LI - TA - TE = 4" 
340 AGRO H 930 DATA *0*,4,"3* 
350 FOR Le 1T0MH 940 DATA * EXISTA EXCEPTII LA ACBASTA REGULA * 
360 READ F4(T0) 950 DATA 3 
370 PRINT E$ 960 DATA * CIND PRIMA CONSOANA ESTE * 
380 NEXT 1 970 DATA * B,C,D,G,P,T,K,F IARA DOUA L,R * 
390 RETURN 980 DATA " AMINDOUA TREC LA SILABA URMATOARE 
400 READ ES(T0) 990 DATA * A - BRE - VI - A: A- CRU * 
410 PRINT ES 1000 DATA * COD - RU =1* 
420 GOTO 89 1010 DATA * CO - DRU =2" 
S00 DATA 3 1020 DATA *0*,2,"1* 
510 DATA * DACA VOCALA E URHATA DEO" A aa Sea E = 
520 DATA * SINGURA CONSOANA ACEASTA * iC duza :a oa itita 
530 DATA * TRECE LA SILABA URMATOARE * "Dita dia d 
330 DATA * LE - GE ; 0 - RA " 1060 DATA * DE - MOC = RAT =1* 
350 DATA * DU -NA-RE= 1" 1070 DATA * DE - MO - CRAT =2* 
S60 DATA * DUN-A-RE=20 1080 DATA *0*,2,*1* 
570 DATA * DUN - AR -E£=3* 1090 DATA * NI - SET - RU= 1" 
5980 DATA * D-UN-A-RBs40 1100 DATA * NI - SE - TRU =2* 
590 DATA *0",1,*4" 1110 DATA *0"*,2,"2* 
- 2000 END 


12.19. Verificarea cunoștințelor de geogratie 


PILE PTR EPA ICR A 


La 


Exăitolui ales în tării programului este axat pe veril icare a de bbagceii 
reşedinţelor de județ. Examinatului i se solicită să răspundă la 10 întrebări, 
afişînd un număr de 10 judeţe alese aleator şi cerînd să se introducă numele 
reşedinţei judeţului respectiv. După parcurgerea celor 10 întrebări, se afişează 
numărul de răspunsuri corecte. Dacă se răspunde greșit la o întrebare, se indică 
şi răspunsul corect. 


Programul poate fi extins fără dificultăţi pentru orice gen de teste asemă- 
nătoare (verificarea cunoașterii regulilor de circulație, formule, definiţii etc.) 
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10 PRINT " VERIPIGAREA E aUNDATIMIRUBE z- 


15 PRINT * LA GEOGRAFI 


20 PRINT * DENUMIRE pii-Ai - RESEDINTA * 


25  DIH-H$(S0),Ss(50),Vvs(50), 
30 N=o0 

35 T = 39 

40 FOR I=1T0 10 


45 FOR J = 1 TO INT(RND(X)wT+l) 


So READ MS(TO),ssc(To) 
SS NEXT J 


60 PRINT * DATI RESEDINTA JUDETULUI *;H% 


65 INPUT Vs(To) 

70 IP V$ 4 S$ THEN 85 
75 Ho Hei 

80 Go0T0o 90 


65 PRINT * RASPUNS CORECT AR FI *;$$ 


90 RESTORE 
95 NEXT I 


100 PRINT * DIN 10 INTREBARI ";H;" ATI STIUT 


110 SToP 


120 DATA * JUDET 1 *;" RESEDINTA 1 * 


130 DATA 


400 DATA * JUDET N+; 
410 END 


” RESEDINTA N 


12.20. Verificarea cunoștințelor unui grup de candidaţi. 


Iniţial, programul solicită prin dialog crearea tabelului cu întrebări. 
Fiecărei întrebări, operatorul îi asociază 3 răspunsuri posibile cu indicarea 
răspunsului corect. Se cere apoi numărul total de persoane de examinat. Pentru 


2 DIH 8(20) 
DIH U(100,50,;,T(50),st(50) 


MAT B=- 


ZER. 


PRINT * INTRODUCETI INTREBARILE? (DA/NU) * 
INPUT A$ 


3 
4 
S INIT 
6 
7 
8 


IP A$ = 


10 PRINT * DATI NUMERE DE RASPUNSURI CORECTE? (DA/NU) * 


11 INPUT A 
12 IF A$ = 
15 IF B(l) 


"DA" THEN 1000 


+ 
"DA” THEN 1170 
<> O THEN 20 


16 PRINT * FARA RASPUNSURI INTRODUSE * 


19 STP 
20 PRINT 
30 PRINT 
40 INPUT 
50 MATU 
580 MAT T 
70 REM * 
80 FOR 1 
90 FOR UI 
95 IF WU = 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 INPUT 
160 IF B(J 
170 PRINT 
180 PRINT 
165 IF Us 


: ZER 
ZER 


VERIFICARE DE CUNOSTINTE 
CITE PERSOANE EXAMINATI 


INCEPE VERIFICAREA * 


= 1T0M 

= 0 TO N-1 

O THEN 140 
G3(J+) 
RS(Jn3+1) 
R$(J*3+2) 
R9(Jx3+3) 

" DATI RASPUNSUL 
R 

+1) = R THEN 210 
" RASPUNS ERONAT 
" RASPUNS CORECT 
O THEN 195 


(1,2,3) 


ESTE *; 


190 PRINTRS( Ju3+B(J+1)(3T0)) 


192 60T0 2 
195 PRINT 
200 G0T0 2 


30 
B(J+1) 
30 


210 PRINT * RASPUNS CORECT * 


220 U(1,J+ 
230 NEXT J 
230 8a=0 
250 FOR K 
260 a = a+ 
270 NEXT K 
280 Til) = 


l)=i 


= 1 TON 
U(T,k) 


a 


290 PRINT * DIN *;N;* INTREBARI CUNOASTE »*, 


295 PRINT 
300 NEXT- 1 
310 J=0 
320 FOR 1 
330.3 = J+ 
350 NEXT 1 
360 K = J/ 


= 1T0H 
TU) 


370 PRINT * IN MEDIE CUNOSC *;%,* INTREBARI * 
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380 FOR 1 «1 T0H 
"390 al E €0c19n8009/% 
1 


NEXT 
405 REM * GRAFICUL; X=NR. INTREBARB, YaciTi STIU * 
410 INITP 

420 WINDOU -10,N+10,-10,110 

430 HOVE -10,0 


Ş40 DRAU 2,100 

S50 FOR 1 = 1 TON 

S60 MOVE 1,0 

9570 DRAU st 

S80 NEXT 1 

390 sToP 

1000 REHN * INITIALIZARE * 

1005 U=3 

1010 DiH 69(20,30),R$(3*20,20),8(20) 
1020 PRINT * CITE INTREBARI INTRODUCETI? * 
1030 INPUT N 

1050 PRINT * DATI INTREBAREA SI CELE * 
1055 PRINT * TREI RASPUNSURI * 

1060 FOR 1 = 0 TO N-1 

1070 PRINT * INTREBAREA *;1+) 

1080 INPUT GS(1+1) 

1090 FOR J = 1 T03 

1100 PRINT * RASPUNSUL *;3 

1110 INPUT RS(1x3+J) 

1120 NEXT J 

1130 PRINT * DATI NUMARUL RASPUNSULUI * 
1135 PRINT * CORECT * 

1140 INPUT Bi(l+i) 

1150 NEXT 1 

1160 60T0 20 

1170 PRINT * CITE INTREBARI AVETI? * 
1172 INPUT N 

1175 FOR 1 < 0 TO N-1 

1176 PRINT * RASPUNSUL LA INTRBBAREA *;l+t 
1180 INPUT B(l+1) 

1190 NEXT 1 

1200 60T0 20 


fiecare persoană în parte, se parcurge tot setul de întrebări, cel examinat indi- 
cînd de fiecare dată răspunsul pe care îl consideră ca fiind corect. lua răspunz 
incorect, programul afişează pe cel corect, în vederea însușirii lui. După par- 
curgerea setului de întrebări, se afişează totalul răspunsurilor corecte date de 
examinat. 


La epuizarea examinării tuturor persoanelor, se afişează numărul mediu 


de răspunsuri corecte, caracteristic grupului examinat, şi se trasează graficul 
-su numărul de răspunsuri cerecte pentru fiecare persoană în parte. 


12,21. Ordonarea candidaţilor după mediile obţinute 


Exemplul de față realizează ordonarea candidaţilor după mediile obținute 
la 5 probe. Se introduce numărul total al candidaţilor, urmat de numele fiecărui 
candidat şi calificativele obținute la cele 5 probe. Se afișează numele candida- 
“ților şi media obţinută, în ordinea descrescătoare a mediilor. 


Prin modificarea liniei 17 se poate modifica numărul de probe. 


Verificarea cunoştiațelor unui grup de candidați 


PRINŢ * DRDONARBACANDIDATILOR 
FRINT * DATI NUMARUL CANDIDAT 


JUPUT N 

pa 5 

DIM AS(N,20),H(N),C(P) 
HAT MW = ZER 


D 
L 


u 
o 


FA 
R 


MEDIE * 


PRINT " DATI NUHELE SI CALIFICATIVUL * 


FOR 1 =1 TON 
INPUT ASCI(TO)) 
Hti) =0 

FAT INPUT C 

FOR J = 1 TOP 


Miro = MCLDecuI) 
NEXT J 

MLD = MULDZP 
NEXT 1 

1 1 

£ MU) 

ja dr 

aaa 1 

1F M(J) <= C THEN 115 
C = M(J» 

KI 9 

IF 3 = N THEN 130 
Ja ei 

GOTO 100 


REM " INVERSAREA ORDINEI * 
B5 = ASUI(TO)) 

ASUL) = AS(R(TO)) 

AS(K) = 85 

S = Mil) 

ML) = MR 

Mih) = s$ 

E il 


IF 1 < N THEN 85 
REM ” TIPARIREA ” 


PRINT " NUMELE *:* MEDIE 


FOR 1 =1 TON 
PRINT AS(ID,utl) 
NEXT 1 

sToP 

END 
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Capitolul 13. | Microcalculatorul aMIC în grafică, 


jocuri, aplicaţii diverse 


13.1. 'Trasarea strofoidei 


Programul trasează strofoida, conform ecuaţiei : 


__X2(X +a) 
age 


Se solicită prin dialog distanţa punctului A faţă de origine. (fig. 13.1) 


35 PRINT * STROFOIDA * 

10 PRINT * DATI VALOAREA A * 
15 INPUT A 

20 xXx = A/3 

25  Y = SOR(X"2m(X+A)/(A-X)) 
30  INITP 

35  WINDOU =Y,Y,-Y,Y 

40 MOVE -Y,o 

45 DRAV Y,O 

SO MOVE 0,-Y 

55 DRAU O,Y 

60 MOVE X,Y 

65 FOR X = A/3 TO -A STEP -1 
70 Y = SQR(X*2x*(X+A)/(A-X)) 
75 IF X <= 0 THEN 90 

80 DRAU X,Y 

85 G0To 95 

90  DRAU X,-Y 

95 NEXT X 

100 FOR X = -A TO 4/3 

105 Y = SAOR(X"2x(X+AD)/(A-X)) 
110 IF X >= 0 THEN 125 

115 DRAW X,Y 

120 60T0 130 

125 DRAU X,-Y 

130 NEXT X 

135 sToP 

140 END 


Fig. 13.1. Strofoida. 


'Trasarea cicloidei 17 79 


13.2. 'Trasarea cicloidei 


Programul trasează cicloida, conform ecuaţiei : 


X=r (i—sin t) 


Y =r (I—cos t) 


unde : (fig. 13.2) 


13.3. Trasarea epicicloidei 


r este raza cercului, 


t este unghiul de rotație, 


A este parametru : 


A este 1 punct pe cerc 


1>1 punct exterior cercului 
1<l punct interior cercului 


Se solicită prin dialog valorile pentru r, A precum și numărul total de ci- 
cluri de trasat. 


PRINT * CICLOIDA " 

PRINT " DATI RAZA CERCULUI * 
INPUT R 

PRINT * DATI PARAHETRUL L " 
INPUT L 

PRINT * CITE CICLURI? (1,2,3) * 
INPUT N 

IF N <= 3 THEN 65 

N=8 

A = —2*R 

B = N*2*Plx” 

INITP 


WINDOU A,B,A,B 

REM " TRASAREA AXELOR * 
HOVE A,0 

DRAY B,0 

MOVE O,A 

DRAW 0,B 

REM _" TRASAREA CERCULUI » 
MOVE R,R 

FOR J = 0 TO 2wPl STEP PI/10 
DRAU RxCOS(J),R+R*SIN(J) 
NEXT J 

x =0 

Y = Rm(i-L) 

MOVE X,Y 

FOR J=0 TO Nx2uPI STEP P1/10 
X = Rm(IJ-L*SIN(J)) 

Y = Ra(i-LwCOS(J)) 

DRAU X,Y 

NEXT J 

SsToP 

END 


Fig. 13.2. Cicloida. 


Programul trasează epicicloida, după ecuaţiile : 


X=(R-+r) cos 


r R+r 
RI COS a 


Y = =—(R+-r) sin + t—r sin Dir 
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unde : (fig. 13.3) 


R — raza cercului fix 

r — raza cercului mobil 

t  — unghiul format de dreapta care unește centrala celor 2 cercuri cu 
axa X. 


Forma curbei depinde de raportul r/R ; dacă r=R se obţine graficul 
cardieidei. 
Se solicită prin dialog valorile pentru r și R şi se trasează epicicloida. 


Ei PRINT * EPICICLOIDA * 
10 PRINT * DATI RAZA CERCULUI FIX * 
15 INPUT R A 
20 PRINT " DATI RAZA CERCULUI HOBIL * 
25 INPUT L 
30  1NITP 
35 A = R+2x|, 
40 WINDOW -A,A,-A,A 
45 MOVE -A,09 
SO  DRAU A,0 
SS HOVE 0,-A 
60 DRAU O,A 
63 HOVE R,O 
70 FOR X = 0 TO 2*PI1 STEP P1/10 
75  DRAU R*COS(X),R*SIN(X) 
80 NEXT X 
85 MOVE 8,0 
90 A = R+L 
95 B=U/R 
= A/R 
= 2*PIk*R/L 
OR X = 0 TO H STEP PI/10 
= A*COS(BxX)-L*COS(CxX) 
= AXSIN(BXX)-L*SIN(C*X) 
125 DRAW 2,Y 


Fig. 13.3. Epicicloidia. 


13.4. Trasarea melcului lui Pascal 


Pregramul trasează melcul lui PASCAL. pe baza ecuaţiilor : 
X=2R cos? p-l-a cos e 
Y =2R cos o sin g-+a sin e 
unde (fig. 13.4): 
R este raza cercului 
p este unghiul dreptei care se rotește față de axa X 


a este parametrul de care depinde forma curbei 
(dacă a/|R=—2 se obţine graficul cardioidei) 


Se solicită prin dialog valorile pentru R și pentru raportul a/R (nu se 
dă valoarea direct pentru a). 
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Ş * PRINT » MELCU LUI PASCAL * 

10 PRINT ”* CONC OIDA CERCULUI * 

15 PRINT * DATI RAZA CERCULUI » 

20 INPUT R 

235 PRINT " DATI RAPORTUL A/R " 

30 PRINT "* FORMA CURBEI DEPINDE DE A/R* 
35 PRINT * A/R < 2 CU BUGLA * 

40 PRINT " A/R = 2 CARDTOIDA * 

45 PRINT " 2 C A/R < 4 FARA BUCLA * 
ŞO PRINT * A/R > 4 CURBA CONVEXA * 
55 INPUT N 

60 IF N <= 6 THEN 70 

63 N=s6 

70 A = NR 

75 INITP 


80  WINDOU =4xR,2R+A, -4AXR, 2NR+A 
85 MOVE -4*R,o 

90 DRAW 2XR+A,0 

95 MOVE 0,-4*R 

100 DRAW 0, 2xR+A 

105 MOVE 2*R,0 

110 FOR 1 = 0 TU 2x*F! STEP P1/10 
115 DRAU R+R*COS(12,R*SIN(L) 

120 NEXT 1 

122 REM " TRASAREA CURBEI " 

125 FOR [1 = 1 70 2*P1 STEP PI/10 
130 Z = Costi) 

135 U = SIN(I) 

140 X = 2*RKxZ"2+Ax2 

145 Y = 2*RKZRU+ANU 

150 DRAU X,Y 

155 NEXT 1 

160 PRINT * MAI VRETI PT. ALT RAPORT?"; 
165 PRINT » (DA/NU ) 

170 INPUT D$ 

175 IF D$ = "DA" THEN 25 

180 sToe 

185 END 


Fig. 13.4. Melcul lui Pascal 


13.5. Trasarea cercului circumscris unui triunghi 


Se solicită prin dialog coordonatele virfurilor triunghiului. 

Întrucît în program nu se calculează WINDOW -ul în funcţie de coor- 
donatele vîrturilor triunghiului, pentru a nu ieşi cu triunghiul din ecranul 
TV se recomandă utilizarea valorilor de la —100 la 100. 

În program se iau coordonatele a cîte două vîrfuri, se determină direcția 
dreptei definite prin aceste două puncte: 


dai 
—X 

Se determină coordonatele punctului median al laturii Prin acest punct 
trece mediatoarea triunghiului eu direcția : 


1 


ti cls; 


Ecuația ei (dacă punctul median are ceordonatele X, Y) este: 
y—Y=R (x—X) 


Dacă intersectăm două mediatoare obţinem coordonatele centrului cer- 
cului (B, C) circumscris triunghiului. 
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Din coordonatele centrului cercului și coordonatele unui virf al triunghiu- 
lui se poate determina raza cercului. 


R=yV|B—X Prof 


Se iniţializează ecranul și se determină spaţiul utilizator: —100, 100— 
—100, 100. Se trasează triunghiul și cercului circumscris. Se afişează coordo- 
natele centrului cercului și mărimea razei. 


10 PRINT " CERCUL CIRCUMSCRIS * 
DIM A(2),B(2),ct2) 
RINT " DATI COORDONATELE VIRFURILOR * 
T INPUT A,B,C 
so HAT D=A 
60 MATE =B 
70  GOSUB 600 
80 IF Y = 0 THEN 400 
90 s-=R. 


bi 
o 
= 
> 
ri 
» 
DI) 


C 

B 

130 GOSUB 400 

140 IF Y = 0 THEN 460 

150 Y = (S*B-R*T)/(S-R) 

160 IF S > 0 THEN 190 

170 X = (Y-B)/R 

180 GOTO 200, 

190 X = tY-T)/s 

200 î = ABS(X-A(1)) 

210 C = ABS(Y-A(2)) 

220 R = SQR(B"2+C12) 

230 INITP 

240 WINDOW -100,100,-100,100 
250 MOVE -100,0 

260 DRAU 100,0 

270 HOVE 0,-100 

280 DRAW 0,100 

290 MOVE A(1),A(2) 

300 DRAW B(1),B(2) 

310 DRAW C(1),c(2) 

320 DRAU A(1),A(2) 

330 MOVE X+R,Y 

340 FOR 1 = O TO 2%PI STEP P1!/10 
350 DRAW X+R*COS(L),Y+R*SIN(I) 
360 NEXT 1 

370 PRINT AT(1,1);"RAZA = ";R 
380 PRINT AT(2,1);"X = *;X,"Y = "it 
390 sToP 

400 MAT D= 

410 HAT E=B 

420 GOSUB 600 

430 IF Y = 0 THEN S10 


IS 
a 
o 
- 
nu 
»o% 


490 IF Y = 0 THEN 510 

500 60T0 150 

510 PRINT " PUNCTE COLINIARE * 
520 G0T0 30 

600:Y = 0 7 

610 1 = D(2)-E(2) 

620 IF 1 = 0 THEN 730 


630 R = -(D(1)-E(1))/1 
640 X = E(1) 
650 IF E(1) < D(1) THEN 670 


660 X = D(1) 

670 X = X+ABS((D(1)-E(1))/2) 
680 Y = B(2) 

690 IF E(2) < D(2) THEN 710 
700 Y = D(2) 

710 Y = Y+ABS((D(2)-E12))/23 
720 B = R*(0-X)+Y 

730 RETURN 

740 END 
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13.6. Graficul funcţiei polinominale 


Se introduce gradul polinomului și valorile tuturor coeficienţilor (zero 
peniru coeficienţii care lipsesc). Se introduce apoi intervalul de definiţie al 
funcţiei și numărului de pași în care se face trasarea graficului. Un număr 
mai mare de pași face trasarea mai exactă, dar mai lentă. Se va corela acest 
număr cu mărimea intervalului de definiţie. 


Subprogramul de la linia 500 calculează valoarea funcţiei pentru o valoare 
dată a variabilei. La linia 170 se apelează cu limita inferioară a intervalului 
de definiție. În bucla 200—280 se reține valoarea minimă și maximă a funcţiei 
(în P şi R) pe intervalul de definiţie. Spaţiul utilizator se definește în funcţie 
de limitele de definiţie și de valorile P și R în linia 330. Se trasează axele OX 
şi OY şi forma funcţiei pe acest interval. 


10 PRINT * GRAFICUL FUNCTIEI POLINOMIALE * 
15 PRINT * DAT PRIN GRAD SI COEPICIENTI * 
20 PRINT * DATI GRADUL FUNCTIEI * 

30 INPUT OG 

40 DIM C(G+i) 

So PRINT * DATI COEFICIENȚII" 

60 MAT INPUT C 

70 DIM L(2) 

80 PRINT * DATI DOMENIUL DE DEFINITIE * 
90 HAT INPUT L 

100 PRINT * DATI NUMARUL DE PASI * 
110 INPUT H 

120 IF L(1) < L(2) THEN 150 

130 PRINT * LIMITE ERONATE * 

140 60T0 80 

15Q H = (L(2)-L(1))/N 

160 X = Li1) 

170 GO0SUB 500 

180 P=F 

190 R=F 

200 FOR k=1 TON 

210 X = X+H 

220 G0SUB 500 

230 IF F >= P THEN 260 

240 P=F 

250 G0T0 280 

260 IF F <a R THEN 280 

270 R=F / 
280 NEXT K 

290 IF R > P THEN 320 

300 PRINT * FUNCTIE CU VALOARE CONSTANTA *; 
305 PRINT * IN INTERVALUL DAT = *;R 
310 sToP 

320 INITP 

330 VINDOU L(1),L(2),P,R 

340 MOVE L(1),0 

350 DRAU L(2),0 

360 MOVE 0,P 

370 DRAU 0,R 

380 X = Lit) 

390 60SUB 300 

400 MOVE X,P 

410 FOR Kk=1T0N 

420 X = X+H 

430 G0SUB 500 

440 DRAU X,F 

450 NEXT K 

460 SToP 

S00 REM * CALCULUL VALORII FUNCTIEI * 
S10oF =cu) 

520 FOR 1 = 21006 

530 F = FxXx+Ct1) 

540 NEXT 1 

550 RETURN 

560 END 
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13.7. Suma grafică a mai multor vectori 


Se solicită prin dialog numărul total N al vectorilor de insumat, măriniea 
fiecăruia, şi unghiul lor faţă de orizontală. 

Masivul L (N) conţine lungimile, iar A (N) unghiurile în grade. 

Pentru fiecare vector se calculează coordonatele vîrfului vectorbivi con- 
siderind vectorul din originea axelor 3 


X 0)=L (D*cos (A (1)*P1/180) 
Y (DL (Dsin (A (0)*PI/180) 


Coordonata virfului vectorului sumă se obţine din formulele: 


N 
A=Y%xXx(D 


i=l 
N 
B- ro 


iar lungime: vectorului sumă și unghiul cu orizontala : 
L = A2+B2 
C=(arctg (B/A))*180/PI 


10 PRINT * ADUNAREA VECTORILOR * 
20 PRINT * NR. VECTORI DE ADUNAT * 
30 INPUT N u 
40 DIM L(ND,A(ND,XEND, YD 
SO PRINT * DATI MARIMEA SI UNGHIUL * 
Ș3 PRINT * CU AXA X A VECTORILOR » 
60 FOR 1 =1T0N 
70 INPUT L(ID,AL(I) 

NEXT 1 


90 FOR I1=1T0N 

100 X(1) = L(ID)*COS(A(L)*P1/180) 
110 Y(1) = L(LOXSIN(ALI)*PŢ/180) 
120 NEXT 1 

130 A = Xt1) 

140 B = Y(1) 

150 FOR 1 = 2 TO'N 

160 A = A+X(1) 

170 B = BrYt(l) 

180 NEXT 1 

185 INITP 

190 L = SQR(A*2+812) 

200 C = ATN(B/A) 

210 PRINT AT(1,1);* LUNGIMEA *;L 
220 PRINT AT(2,1);" UNGHIUL *;Cx190/P1 
230 VINDOU -1,A+1,-1,8+1 

240 HOVE -1,0 

250 DRAU A+1,0 

260 MOVE 0,-1 

270 DRAU 0,B+1 

280 MOVE 0,0 

290 FOR 1 = 1T0N 

300 RDRAU X(I),Y(I) 

310 NEXT 1 

320 MOVE 0,0 

330 DRAU A,B 

340 sToP 

350 END 
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După iniţializarea ecranului, spațiul utilizator se stabilește în funcție 
de coordonatele A, B, se trasează axele şi prin bucla 290-310 utilizînd instruc- 
țiunea RMOVE vectorii de adunat avînd coordonatele relative X (1), Y (1). 


Se trasează și vectorul sumă. 


13.8. Mişcarea unui punct material într-un cimp gravitațional 


Se consideră un punct material care pleacă cu viteza iniţială Vo dintr-un 
punct A şi trebuie să atingă un punct B aflat la o distanţă D faţă de A. Mişca- 
rea punctului este dată de ecuaţia: 


5 
vă cos? « 


Y=X tg o—X2 


ande | 
Vo este viteza inițială 
«este unghiul de aruncare față. de orizontală. 


Se consideră de asemenea că între punctele A și B poate exista 0 dife- 
renţă de nivel N (punctele nu se află obligatoriu ambele pe axa orizontală). 

Programul solicită prin dialog distanţa între cele dona puncte, diferența 
de nivel între cele două puncte, viteza inițială a mobilului şi unghiului său 
de aruncare. 


BALLISTIL * 
DISTANTA DE TRAGERE * 


DIFERENTA DE NIVEL " 
45 PRINT * POZITIV SAU NEGATIV " 


70 INITP 

80 X = 10 
90 + = 10 
100 V = Ş4 
130) 2. 10 


120 1F N >= O THEN 150 

130 Y = Y+ABSI(N» 

140 G0T0 160 

150 2 = z+H 

160 UINDOU 0,64,0,6â 

170 PLOT X,Y 

180 PLOT V,z 

190 MOVE X,Y 

200 PRINT AT(29,2);" VITEZA INĂTIALA * 
210 INPUT WU 

220 PRINT AT(30,2;” UNGHIUL fil GRADE * 
230 INPUT U 

240 U = PluY/180 


250 T = TAN(UD 
260 ( = Srtuxcostuvi*2 
270 1-0 

280 FOR K = 0 To 84 


290 A = (KaT-Cwk*2 
300 ORAL X+K,Y+A 
310 IP K < 44 THEN35O 


320 1F ADS(Z-A) >: 1 THEN 350 
330 PRINT AT(30.2).“ LOVIT 
330 1.2! i . 
350 REXT K 


360. 1F 1 : 1 THEN 10 
„370 6079. 190... j E ș 
1 390 up + = ; 
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Se trasează graficul traiectoriei punctului, specificindu-se la sfîrşit 
dacă s-a atins sau nu punctul B. 

Dacă nu a fost atins punctul B se cere introducerea noilor valori de viteză 
inițială a mobilului şi a unghiului de aruncare pină se găsește combinaţia 
adecvată. 


13.9. Generarea şi modificarea unei figuri 


Programul generează desenul unui scaun văzut în perspectivă (fig. 13.9), 
solicitind prin dialog dimensiunile |, |, ls și la. După generare figura poate fi 
modificată succesiv, schimbînd una sau mai multe dimensiuni. Se pot obţine 
astfel o serie de reprezentări ale aceluiaşi obiect, cu diferite proporţii între 
dimensiunile principale. 

Programul poate fi extins cu ușurință pentru generarea de figuri mai 
complicate, generarea mai multor figuri la diferite distanțe între ele, permu- 
tarea lor ete. ajutînd la proiectarea corpului respectiv. 


S PRINT * PROIECTARE ASISTATA * 
10 PRINT * DATI LUNGIHE,LATIME SR2UT SCAUN * 
15 INPUT Li,L2 
20 PRINT * DATI (NALTIME SPATAR * 
25 INPUT L3 
30 PRINT" DATI INALTIME PICIOR * 
35 INPUT LA 
40 X1 = SOR(L112/2) 
So Yi =xX1 
60 X2 = S0R(4wL212/3) 
70 Y2 = X2/2 

= SQR(L3*2/4) 
90 Y3 = 3xX3 
100 A = X22X1+X3+20 
110 B = L4+Y2+Y1+Y3+20 
120 INITP 
130 UWINDOU 0,A,0,8 
140 MOVE 10,10 
150 RMOVE 0,t2 
160 RDRAU O,L4 
170 RDRAU X1,Y1 
180 RDRAU X2, -Y2 
190 RDRAU -X1,-Y1 
200 RDRAU 0,-L4 
210 RDRAU O,LA4 
220 RDRAU -X2,Y2 
230 RDRAU X1,Y1 
240 RDRAU X3,Y3 
250 RDRAU X2,-Y2 
260 RDRAU -X3,-Y3 
270 RDRAU 0,-L4 
280 PRINT * CONTINUATI (DA=t) * 
290 INPUT Cc 
300 IF C = 1 THEN 20 
ho sToP 
320 END 


Fig. 13.5. Scaun văzut în 
perspectivă. 


13.10. Generarea de figuri tridimensionale 
conform legilor perspectivei 


Programul iese din siera exemplelor demonstrative, fiind un instrument 
util pentru proiectarea asistată de calculator. Programul permite generarea 
de obiecte cu muchii drepte în spaţiul tridimensional marcat de axele OX, 
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OY, 07. Obiectele se compun prin asocierea așa-numitor segmente de dreaptă 
unitare. Lungimea unui segment unitar poate fi modificată pe parcurs. Indi- 
carea direcţiei de trasare se face prin tastele asociate deplasărilor pe cele 3 axe 
de coordonate. Odată încheiată faza de generare a obiectului, acesta poate fi 
privit din orice punct din exteriorul său (ca şi cum privitorul s-ar roti în jurul 
obiectului). După dorinţă, obiectele generate pot fi completate sau modificate 
ulterior. 

Imaginea în perspectivă a unui obiect a fost creată simulind (aproxi- 
mativ) fenomenul de creare a unei imagini pe retina ochiului. S-au luat în con- 
siderare următoarele ipoteze simplificatoare : 

a) privirea este îndreptată totdeauna spre originea axelor de coordonate 

b) cristalinul este o lentilă subţire convergentă, iar retina un plan orto- 
gonal pe direcţia privirii, la distanţa de 3 cm faţă de centrul cristalinului. 

S-a utilizat formula lentilelor convergente : 


1 1 1 
Lai a a 


unde (ie. 13.6): 
este distanţa între obiect șI lentilă (OB) 
este distanţa între obiect şi imagine (0B') 


P 
f este distanţa focală (OF) 
A este punctul de proiectat 
P este protecţia punctului A pe planul retinei 
i, ] sînt versorii axelor de coordonate în planul retinei: 
= Xa; e;=(0,0,1) 
|| nxes|] 
a nxi 
SE e 
Inxil| 


Imaginea obţinută prin lentilă fiind răsturnată, la proiecția pe ecran 
ea va fi din nou răsturnată pentru obținerea imaginii corecte. 


Fig. 13.6. Lentile conver- 
gente. 


Poziţia punctului P în spaţiu se obține intersectînd planul retinei cu 
dreapta AP: 


| b=te- n-a 
n-b— |n 2=9 
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jar poziţia sa în plan: 


p=b-—n=p!îi-+p:j ; rezultă 
pci ; pote.) 


Se obţin astie! formulele pentru calculul coordonatelor punctului pe 
planul retinei : 


e3 =(0,0,1) 
i 
|| nx ea] 
pă 
nxi|| 
pd Sa 
E (ee 
pr=—tcii 
piticii 


Subrutina de la linia 2 000 din program aplică aceste formule la deter- 
minarea coordonatelor unui punct pe planul retinei. 

Crearea imaginii unui punct oarecare notat cu C se va efectua conform 
figurii 13.7 


Wig. 18.7. Crearea imaginii unui punct, 


Din fermula lentilei rezultă : 
1 1 1 


E 


Ma 3 [ai 
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Punctul B se află la intersecţia planului lentilei cu raza de lumină paralelă 
cu direcţia privirii ce porneşte din C. Vom avea: 
b=ty -n +e 
nb] n |P=0 


de unde rezultă: 


7 afine =, 
Da 
i ai 


INITP 
10 DIM 6%$(2354,12),R(254) 
30 PRINT ATt2,1);* N = FIGURA NOUA * - 
40 PRINT AT(3,1);* V = FIGURA VECHE NEMODIFICATA * 
so PRINT AT(4,1);* M = FIGURA VECHE MODIFICATA * 
60 INPUT F+ 


70 3-1 
75 a! 
(219) LL 2:99 
82 V o 
84 v=0 
86 w=0 


90  GOSUB 5000 
100 GOSUB 700 

110 GOSUB 9000 

120 GOSUB 500 

130 GOSUB 3000 

140 GOSUB 2000 

150 HOVE C+50,D+S0 

160 GO5UB 9000 

163 GOSUB S00 

166 KS = GBUL,ITOI) 

170 IF ks = “A” THEN 160 

180 LE K$ = "0" THEN 110 

190 LE K$ = *S" THEN 250 

200 1F K4 = “L" THEN 300 
210 GOSUB 3u00 

220 69SuB 2000 

230  DRAU [+50,D+50 

240 GOTO 160 

250 PRINT AT(1,19);" R = RELUATI 
250 PRINT AT(2,1);* S = STOP 
270. INPUT F+ 

280! LR F4 3 *R* THEN 20 

230. sTop 

300 1F Fs = "N" TREN 330 
310 6 = R(E) 

320 GOT0 370 

330 PRINT AT(1,1);* 

340 PRINT AT(1,10; 

350 INPUT 6 

360 R(E) = 6 

370 Eu E+i 

380 GOTO 140 

500 1F FS <> M THEN 610 

510 PRINT AT(1,1);” 3 
520 PRINT AT(1,1); 

330 A = INHEYS 


540 1FA$ = * * THEN '530 
SSO  1F As = “0” THEN 610 
SEO IF Aș = "1" THEN 600 
570 IF AS = "A" THEN 620 
S80 IF A$ = "D* THEN 640 


590 G0T0 530 

500  GOSUB 9040 

810 RETURN 

620  G$(1,JT0J]+2) = "AAA" 
630 RETURN 
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640 FS = "N" 3110 W = W-6 
650 RETURN 3120 GOTO 3200 

700 INITP 3130 U = U+6 

710 PRINT AT(27,26);"5=2+: 3140 GOTO 3200 

720 PRINT AT(28,26);"6=7-* 3150 U = U-G 

730 PRINT AT(29,26);"*7=X+* 3160 GOTO 3200 

740 PRINT AT(30,26);"8=xX-* 3170 V = V+G 

750 PRINT AT(31,26);"9yY+! 3180 GOT0 3200 

760 PRINT AT(32,26);"0=Y-* 3190 V = V-6 

770 IF F$ <> “"M" THEN820 3200 NEXT K 

780 PRINT AT(22,26);"C=CON! 3210 RETURN 

790 PRINT AT(23,26);"1=INL* 5000 IF Fe = "N" THEN 5030 

»800 PRINT AT(24426); "A=ABN' SOLO G = R(E) 

810 PRINT AT(25,26);"D=DEZ? 9920 60T0 5060 

820 RETURN 5030 PRINT AT(8,1);" MARIMEA "; 
2000 REM " CALCULE 5040 INPUT 6 

2010 I3 = LeL+MH So5o RIE) =, 

2020 IF J3 = O THEN 2080 9060 E = Ec 

2030 11 = -M 3070 PRINT AT(10,1);"* COORDONATELE ”: 
2040 12 = L 5080 INPUT L,M,N 

2050 Ji = -LuN 5090 RETURN 

2060 J2 = -MuN 9000 1 = [+1 

2070 6970 2120 9010 IF F% = "N" THEN 9040 

2080 11 =0 9020 REM " LA V SI M EXISTA IN MEMORIE * 
2090 12 = -1 9030 GOTO 9070 j 
2100 31 = -4 9040 PRINT AT (1,1);" . 
210 J2 =0 9050 PRINT AT(1,1); 

2120 NI = LL+M*H+NaN 9060 INPUT 65(1,JT0J+2) 

2130 1F N1 = 0 THEN 2290 9070 IF 1 < 254 THEN 9130 

2140 N1 = SOR(NI) 9080 1 =0 

2150 N2 = [1*2+12*2 9090 I = J+3 

2160 N2 = SAR(N2) 9100 IF J <= 9 THEN 9130 

2170 N3 = J1*2+J2"2+J312 9110 PRINT * MEMMORY FULL * 

2180 N3 = SOR(N3) 7120 SToP 

2190 Na = LmU+MwV+NeU 9130 RETURN 

2200 NS = NI*2-NA 9140 END 

2210 IF NS = 0 THEN 2260 

2220 T = 3*N1"2/N5 

2230 C€ = -Tx(Ux*11+Vx12)/N2 

2240 D = Te(UxJ1+V%J2+WxJ3)/N3 

2250 RETURN 

2260 c =o0 

2270 5 =0 


2280 RETURN 
2290 PRINT * EROARE 


2300 SToP 

3000 FOR K = 0 T02 

3010 K$ = GS(1,J+KTOJ+K) 
3020 IF K9 = "5" THEN 3090 
3030 IF K$ = "6" THEN 3110 
3040 IF k% = "7" THEN 3130 
3050 IF K9 = "8" THEN 3150 
3060 LF K$ = "9" THEN 3170 


3070 IF K% = "0" THEN 3190 
3086 GOTD 3200 

3090 u = W+6 

3190 6O0T0 3200 


Poziţia punctului F o aflăm din formula lentilei și din faptul că F se află 
pe direcţia de privire: 


î=t-n 
Pa 3 E 
|n || = Ain 
3+ |n] 
de unde rezultă: 
3 5 
sil pe d Îl 
| ta TEI 


Imaginea punctului C (punctul A) se obţine intersectind cele două raze 
de lumină: 4 Ga Way + 
a=ta ([—b)+t 


a =ta (n—c)-+-n 
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Sistemul este compatibil determinat dacă vectorii (f—b, n—c? sînt 
liniari independenti. Acest fapt este echivalent cu c (b—n) 7.0. 
Deoarece (b—n) n şi (b—n)_Lf, avem: 


at (n—c)-+n ; unde: 
Bo 3Inj] 
2 3 E Re 
3—1——+lln.: 
a (rs 


Folosind ecuaţiile de mai sus, se creează imaginea obiectului care va 
trebui apoi proiectată pe planul retinei (fig. 13.8) 


t= 


Y 


Fig. 13.8. Imaginea obiectului proiectată pe planul 
retinei. 


Vom da în continuare instrucţiunile de exploatare ale programului. După 
ansarea sa în lucru, programul solicită operatorului una din opţiunile de bază : 

a) N — generarea unei figuri noi 

b) V — privirea figurii existente din diferite puncte de vedere 

c) M — modificarea figurii existente 


Opţiunea N Se cere lungimea segmentului unitar, ce va fi utilizat în 
trasările ulterioare. Se recomandă valori cuprinse în domeniul 5—20. Aceste 
valori derivă din faptul că întreg ecranul este considerat ca un spaţiu de 
100 x 100 unităţi. O valoare mai mică pentru segmentul unitar permite trasarea 
de figuri mai complexe. O valoare mai mare permite trasarea mai expeditivă 
a figurilor, riscîndu-se însă depăşirea limitelor ecranului. În acest caz se modi- 
fică punctul de vedere al privitorului, plasîndu-l la o distanță mai mare faţă 
de obiect. 

Se solicită apoi coordonatele punctului de vedere (în care se consideră 
că se află privitorul). Generarea figurii pornește implicit din centrul ecranului, 
considerat ca avînd coordonatele 0, 0, 0. Prin comanda D (deplasare), se pot 
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£ 
&— 


modifica coordonatele de pornire a trasării. Aceeaşi comandă poate îi utilizată 
pentru părăsirea coordonatelor curente de trasare și. începerea trasării dintr-un 
alt punct. Coordonatele indicate în comanda D se raportează totdeauna relativ 
la coordonatele ultimului punct de trasare anterior. 

Trasarea efectivă a cîte unui segment unitar se execută cu ajutorul urmă- 
toarelor taste : 


5— pentru deplasare (trasare) pe axa OZ în sens pozitiv 

6— pentru deplasare (trasare) pe axa OZ în sens negativ 
7— pentru deplasare. (trasare) pe axa OX. în sens pozitiv 
8— pentru deplasare (trasare) pe axa OX în sens negativ 
9— pentru deplasare (trasare) pe axa OY în sens pozitiv 


0— pentru deplasare (trasare) pe axa OY în sens negativ 


La apăsarea tastei, se trasează un segment unitar în direcția specificată. 
În afară de trasare simplă (apăsarea unei singure taste de „direcţie“) se permit 
şi trasări combinate din maxim 3 direcţii de deplasare. Combinația de direcţii 
indică poziţia punctului care va fi unit printr-o linie cu ultimul punct unde s-a 
oprit anterior trasarea. Astfel, dacă se indică o deplasare XYZ combinată, 
se va trasa direct diagonala cubului cu lungimea laturii egală cu segmentul 
unitar, De remarcat faptul că prin opțiunea de trasare combihată se pot face 
trasări în orice direcţii, nu numai paralele en cele 3 axe de coordonate. 

Dacă se dorește moditicarea lungimii segmentului unitar s* utilizează 
comanda IL. Trasarea va continua cu noua lungime. 

Stirşitul trasării figurii se indică prin comanda S$. 


Opțiunea V Permite schimbarea. poziţiei privitorului față de obiectul ge- 
nerat. Se introduc coordonatele noului punct de vedere, apoi programul tra- 
sează fără întrerupere imaginea vechiului obiect, văzut din noul punct dat. 


Opțiunea M Permite modificarea facilă a imaginii unui obiect deja gene- 
rat. 'Trasarea figurii se face pas cu pas, iar după fiecare pas se aşteaptă o co- 
mandă, care poate fi: 


C — se trece la pasul următor ; 
] —se înlocuieşte comanda de trasare următoare cu ceea ce doreşte 
operatorul; 
A — se abandonează comanda de trasare următoare (salt peste un pas) i 
D — dezvoltarea figurii — se consideră din acest moment trasarea ca 
şi la opțiunea N. 
La terminarea trasării, operatorul poate relua ciclul celor trei opţiuni. 
Domeniile de aplicaţie pot fi multiple, începînd cu exersarea vederii 


în spaţiu a diferitelor obiecte, şi terminînd cu activităţi de design în arhitec- 
tură, interioare de locuinţe, construcţii de maşini ete. . 
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13.11. Trasare de labirint 


Se trasează un labirint de lăţime şi lungime dată. Generarea se face uti- 
lizind caracterele I, —, :, .. Astfel se poate genera labirintul fără utilizarea de 
instrucțiuni grafice. I-abirintul are doar o singură intrare și ieşire și un singur 
drum de trecere. Fiind trasat pe baza generării de numere aleatoare se obţin 
forme diferite de labirint. 


70 PRINI * LABIRINT * Sia le ti 790 „ 910 950 Ss = sei 
30 DIM W(30,30),V(30, 80) 20 Gi 95 IF O a HmV + 
90 PRINTI * LATIMEA , LUNGIMEA * S30 IF S-i = O THEN 670 5 GOTO 260 Po DEI 20 
100 INPUT H,V ao LE 40-94) 2001 AER €70 ss Zet 
102 IF H< 1 THEN 108 545 si 970 1F VIR,S) « 
103 IF H < 30 THEN 1490 S47 IF W(R+1,9) <> O THEN 610 378 na : 3 îa e 
104 IF V< 1 THEN 108 SS0 IF $ <> V THEN 560 : 974 a =0 
105 IF V < 20 THEN 140 S52 IF 2 = 1 THEN 570 976 0OTO 1000 
106 PRINT ” DIMENSIUNI ERONATE * ai E Cara 980 V(R,s) ei 
O& ITOa 99 i > y = 
rd LU aula 560 IE W(R,S+1) 4 0 THEN 590 200 
150 2=0 570 X s INT (RND(X) *3+ 1) os sai 
160 X = INTt FND(X) He» 580 ON X GOTO 820 , 860 , 910 988 GOTO 250 
165 FOR I=1T0H 590 X = INT ( AND(X) x 2 +1) 1000 GOTO 210 
170 1F£ 1 = X THEN 172 600 UN X GOTO 820 , 860 10f0 FOR u= 1 T0V 
171 PRINT "3 610 IF 5 <> V THEN 630 1011 PRINT "1 
172 GOT 190 &20 1F 7 = i THEN 660 1012 FOR IL = 1 TOH 
173 PRINT ". "3 623 0 =1 1013 IF V(I,y) < 2 THEN 1039 
180 NEXI I 627 GOTO 640 1020 PRINT » "“; 
190 PRINT ».* 630 1F W(R,S+1) £) O THEN 640 1021 GOTO 1040 
195 Cai 640 X = INT (CRND(X) M2+ 1) 1030 PRINT "1 "e 
196 Mix, ac 650 ON X GOTO 620 , 910 1040 NEXT 1 
198 € = C+ 660 GAT e20 1041 PRINT 
“ 670 IFR = H THEN 740 1043 FOR Le i TON 
680 IF W(R+1,S) <> O THEN 740 1045 IF V(L,y) «e 0 THEN 1060 
685 IF $ <> V THEN.700 1050 IF V(L,9) a 2 THEN 106 
> TREN 240 690 IF 2 = 1 THEN 730 1051 PRINT îi »e 
<> V THEN 230 6950 =1 1052 GOTO 1070 
697 GOTO 830 10%0 PRINTI ns="p 
700 IF W(R,S+1) <> O THEN 720 1070 NEXT | 
710 X = INT( RND(X) x2 +1) rea Pacii e 
720 ON X GOTO 860, 910 1072 NEXT 


730 GOTO 860 
7401F 5 <> V THEN 760 
750 1F 2 ="1 THEN 780 


1073 SToP 


W(R,S) e O THEN 210 755 0=1 
0 THEN 530 757 GOTO 770 
3) <> 0 THEN 530 760 IF W(R,&+t) <> O THEN 720 
$ 0 THEN 290 770 GOTO 910 
IF W(R,S=1) <> 0 THEN 890 7380 BOTO 1000 
IF R = H THEN 830 730 W(R-1,85) = C 
IF W(R+1,5) <> O THEN 830 800 C = Cr 
X = INT( RND(X) n 3+ 1) a Sg = 2 
ON X GOTD 790 , 820, 860 AL: și 
IF S <> V THEN 840 | 510 1F C = HRV + 4 THEN 1010 
IF Z = 1 THEN 870 8158 =0 
o=1 816 GOTAa 240 
GOTA 350 820 W(R,S-1) = C 
IF W(R,S+1) <> O THEN 370 830 € = ri 
X = INTURNDUXD) 81) B40 V(R,S-1) si 
DN X GOTO 790 , 820, 910 842 5 = s-i 
X = INTURND(X) *2+1) S441F C = HaV + 1 THEN 1010 
ON X GOTO 790 , 820 830 e=o0 
1F R = H THEN 470 854 GOTO 260 
IF W(R+1,$) <> 0 THEN 470 860 W(R+1,s) e C 
1F Ss <> V THEN 420 970 C = C+i 
IF 2 = 1 THEN 450 272 IF VIR,S) = O THEN 990 
a=1 875 V(R,S) = g 
GOTO 420 877 GOTO 890 
IF W(R,S+1). <> O THEN 450 380 V(R.S) = 2 
X = INT(RND(X) 4 81) 890 R = Rri 
ON X GOTO 790 e 860, 910 900 1F € e EA abol + 1 THEN 1010 
X = INT(URND(X) x 2+ 13 905 GUTD S%0 
ON X GOTO 790 , 860 910 1F 0 = 1 THEN 969 
IF S <> V THEN 490 720 W(R,S+1) e C 
N 9 C = Cri 
Capa li a IF V(R,S) = O THEN 940 
VIR,5) = 3 
SOTO 500 s VER, 
1F W(R,S+1) <> O THEN 520 735 Seo 750 
Xe INT( RND(X) x 2+ tt) 940 VIR,S) =1 
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13.12. Mastermind 


Jocul este o variantă adaptată a celebrului MASTERMIND, care soli 
cită determinarea unei combinaţii de 4 culori într-o ordine anumită, din 6 
culori posibile. Adaptarea s-a făcut pentru determinarea unei combinaţii de 
4 cifre din 6 posibile. Setul de cifre posibile este : 
„0 1, 2, 3, 4, 5. Se introduce o combinaţie de 4 cifre ; programul compară această 
combinaţie cu propria sa combinaţie stabilită prin randomizare la începutul 
jocului. Se afişează un “*“ pentru cifră corectă în poziţie corectă, și un „+” 
pentru cifră corectă în poziţie incorectă. Se admite ca aceiași cifră să apară 
de mai multe ori în cadrul combinației de 4 cifre. Scopul jocului este de a deter- 
mina combinația corectă din cît mai puţine încercări. Se afișează la sfirşit 
numărul total de încercări. 


5 INITP 

10 PRINT *HASTERHINĂ* 

15 PRINT * GASITI PATRU CIFRE DIN * 

20 PRINT * SASE POSIBILE 0,1,2,3,4,3 * 
25 PRINT * RASPUNSUL LA 0 INCERCARE: * 
30 PRINT * m = NR. BUN LA LOC BUN * 

35 PRINT * e = NR. BUN LA ALT LOC * 

40 L=o0 


45 DIM ac4),B(a)> 
SD FOR Z= 1104 
55 Y = INT(RND(XD)%6) 


o 
75 PRINT * DATI 0 INCERCARE * 
80 L = Let 
35 MAT INPUT A 
90 k=o0 
935 3=0 
100 FOR Z=1T04 
105 IF A(Z) <a $ THEN 115 
110 J=1 
115 NEXT 2 
120 IF J = O THEN 135 
125 PRINT * COMBINATIE ERONATA * 
130 GOTO 95 
135 FOR 2 = 1 T04 
110 B(Z) = ABS(B(2)) 
145 [F A(Z) <> B(Z) THEN 165 
150 K = Ket 
155 A(z) =7 
160 B(2) = -B(2) 
165 NEXT Z 
170 FOR 2 = 1T04 
175 $=0 
190 FOR H = 1T0 4 
185 IF A(H) = 7 THEN 215 
190 IF A(H) <> B(Z) THEN 215 
195 IF G <> 0 THEN 215 


220 NEXT Z 

230 IF K = 0 THEN 250 

233 FOR 2Z=1T0K 

240 PRINT "ww"; *; 

245 NEXT Z 

250 IF J = 0 THEN 270 

255 FOR Z=1T0]J 

260 PRINT ++; *; 

265 NEXT 2 

270 PRINT 

275 ÎF K < 4 TH&N 80 

280 PRINT * ATI GASIT DIN *;L; 
205 PRINT * INCERCARI * 

290 PRINT * DORITI ALT JOC (DA/NU) * 
300 INPUT D$ 

305 IF D5 = "*DA* THEN SO 

310 sro 

320 END 


Vinătoare de vulpi 


13.13. Vînătoarea de vulpi 


Programul trasează un careiaj de N X N dimensiuni (N =10—30) în care 
plasează în mod aleator 3 vulpi. Scopul jocului este de a determina coordo- 
natele vulpilor din cît mai puţine încercări. O încercare se specifică prin coor- 
donatele punctului (X, Y), după care programul afişează un “/“ pentru punct 
liber, sau un “X“ pentru vulpe găsită. Se totalizează la sfirşit numărul de 


îneercări. 


DIM A(6),c(3) 

INITP 

N = INT(RND(X)*30) 

IF N >= 10 THEN 50 

N= 10 

FOR 1 = 1706 

ACI) = ÎNT(RND(X)x30)P10 

IP A(I) < N THEN 100 

ACID = A(D-S 

GOTO 70 

M=o9 

IF | «x 2 THEN 170 

FOR 3 = 1 TO 1-1 steP2 

IF Ac) <> A(IJ) THEN 150 
Met 

NEXT J] 

IF N <> O THEN 60 

NEXT 1 

MAT C = ZER 

H=0 

U:90 

Vo 

INITP 

WINDOW -10,N+10,-10,N+10 
PRINT AT(1,1);" VINATOARE DE VULPI * 
PRINT AT(2,1);” GASITI TREL VULPI *; 
PRINT "INTR-O ZONA DE *;N;"/":N 
FOR 1 = 0 TON 

MOVE 0,1 

DRAU N,I 

MOVE 1,0 

DRAU 1,N 

NEXT 1 

PRINT AT(28,1);* ra 
PRINT AT(28,1);* COORDONATA "; 
MAT INPUT B(2) 

V = V+l 

FOR J = 1 T0 5 STEP 2 

IF A(J) <> B(1) THEN 530 

IF A(J+1) <> B(2) THEN 530 

1 = INT(J/2)+1 

IF C(1) = O THEN 420 

PRINT AT(28,1);" VULPE DEJA GASITA » 
GOTO 520 

PRINT AT(28,1);" ATI GASIT 0 VULPE * 
C(l) „1 

MOVE B(1),B(2) 

DRAU B(1)+1,B(2)+1 

HOVE B(1),B(2)+1 

DRAU B(1)+1,8B(2) 

V = U+1 

IF U <> 3 THEN 520 

PRINT * ATI GASIT DIN *v; 
PRINT “LNCERCARI * 

Hai 

Jas3 

NEXT 3 

IF M <> O THEN 20 

MOVE B(1),B(2) 

DRAW B(1)+1,B(2)+) 

GOTO 310 

ERD 
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13.14. Verificarea vitezei de reacţie 


Programul afişează într-o poziție aleatoare pe ecran o cifră (0—9) şi 
așteaptă un timp determinat introducerea aceleiaşi cifre de către operator. 
Se solicită iniţial viteza de joc (1—5), viteza 1 fiind cea mai mare. $a 
afișează permanent scorul pe ecran. Din start, jucătorul primeşte 5 puncta, 
Pe parcurs, modificarea scorului decurge astiel: 
— pentru o cifră introdusă corect, se adaugă un punct; 
— pentru o cifră incorectă, se scade un punct; 
— pentru nici o cifră introdusă în intervalul de așteptare, se scad 2 puncts, 
Oprirea programului are loc la atingerea scorului nul. 
E] INITP 
10 PRINT "REFLEXUL * 
15 PRINT " SE AFISEAZA ALEATOR 0 CIFRA *; 
20 PRINT "PE ECRAN * 
23 PRINT * BATETI CIT MAL REPEDE TASTA *; 


30 PRINT "RESPECTIVA * 
35 PRINT * DIN START PRIMITI S PUNCTE * 


40 PRINT * +1 PUNCT LA TASTA BUNA * 

42 PRINT * -1 PUNCT LA TASTA ERONATA * 

44 PRINT * -2 PUNCTE DACA NU TASTATI * 

435 L-3 

So PRINT * DATI VITEZA DE JOC (1,2,3,4,5) * 
S5 INPUT N 

60  INITP 


65 PRINT AT(I,L);* REFRLAXUL e” 
70 PRINT AT(2,1);" SCORUL: ";L 
75 IFL< 1 THEN 220 

80 A = INT(RND(X)x9)+48 

85 89 = INKEYS 

90 X = INT(RND(X)x26+4) 

95 Y = INT(RND(X)x29+1) 

100 PRINT AT(X,Y);CHRS(A) 

105 A5 = INKEYS 

110 FOR 1 = 1 TO 100»N 

115 IF. AS <> B5 THEN 125 

120 B9 = INKEY% 

125 NEXT 1 

130 IF B$ = A$ THEN 195 

135 a =0 

140 FOR 1 =0T09 

145 IF 8% = STRS(1) THEN 153 
150 GOTO 165 

155 IF 1 <> A-48 THEN 165 


200 FOR 1 = 1 TO N*100 
205 REM * PAUSE » 

210 NEXT 1 

215 G0T0 70 

220 SToP 

225 END 


13.15. Perspico 


Jocul constă în alinierea a trei O-uri în linie sau diagonală, în eadrul unni 
careu de 3X3. Fiecare căsuţă din careu primeşte un număr (1—9), utilizat 
pentru indicarea locului în care se plasează O0-ul jucătorului. Ga răspuns, pre- 
gramul plasează un X într-o poziţie defavorabilă pentru jucător, căutînd 
la rîndul său să alinieze trei X-uri. La sfîrşit se afișează ciștigătorul. 
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3 PRINT *PERSPIiCoO-” 280 D=a3 

10 DIM B(9),P(Ș) 285 Fei 

19  INITP 290 GOSUB 340 

20 FORA = 1709 295 c=4 

25 B(A) =A 300 D=6 

39 NEXT A 305 GOSUB 360 

25 MAT P = ZER 310 cC=7 

40 E =0 315 D299 

43 8-0 320 G0Sua 360 

So N=0 323 ca.a 

35 X-a 330'D = 7 

60 PRINT AT(X,3); 333 Fa=2 

65 FORA= 1 1079 340 GOSUB 360 

70 IFA = X THEN 90 345 6 = G+i 

75 IF B(A) = 0 THEN 110 350 IF G = S THEN 50 
90 IF B(A) » 10 THEN 120 355 GOTo 215 

e3 GOTO 130 360 E =0 

90 X = X+3 365 U=1 

95 PRINT 370 FOR A = C TO D STEPP 
100 PRINT AT(X,3)* 375 E = E+P(A) 

105 G0T0o 7$ 380 NEXT A 

110 PRINT *0*;" *; 385 IF E = 3 THEN 440 
115 GOTO 135 390 IF G = 0 THEN 435 
120 PRINT "x"; *; 395 IF E 8 THEN 470 
12% 00T0 135 400 IF Q = 1 THEN 435 
130 PRINT B(A);* *; 405 IF E = 2 THEN 470 
135 NEXT A 410 IF G = 2 THEN 4335 
140 IF Na 1 THEN 210 415 IF E = S$ THEN 470 
145 IF E <> 8 THEN 160 420 IF G = 3 THEN 4235 
150 PRINT AT(15,1);* AM CISTIGAT 425 IF E = 1 THEN 470 
139 GOTO 445 430 IF E = 4 THEN 470 
160 PRINT AT(15,1);* MUTAREA 435 RETURN 

165 INPUT 2 440 PRINT AT(15,1);* ATI CISTIGAT * 
170 IF Biz» <> 2 THEN 163 445 PRINT AT(17,1);* DORITI ALT JOC (Dami) * 
175 N 21 450 INPUT D 

189 Q +: Qi 455 IF Da 1 THEN 13 
185 Biz) 20 460 SToP 

170 Pr?) -1 470 FOR A = C TO D STEP PF 
195 IF Q ca O THEN 55 475 IE B(A) <> A THEN 500 
200 PRINT AT(15,1);* REMIZA 480 IF U = 0 THEN 500 
205 GOTO 475 485 B(A) = 10 

210 6=0 490 P(A) = 4 

215 C=-1 495 U-0 

220 D= 7 500 NEXT A 

225 F =3 505 GoTo 50 

230 GOSU8 360 S10 END 

233 c-a2 

240 D=-e 

2455 00SUB 360 

250 0-3 

235 0-9? 

260 GOSUB 360 

263 C=1 

270 P = 

275 GOSUB 360 


13.16. Cursa de obstacole 


Se conduce un mobil printr-o configuraţie de obstacole generată aleator 
pe ecran. Deplasarea mobilului are loc de la dreapta la stînga ; jucătorul are 
posibilitatea de a muta cu un rînd mai sus sau mai jos direcţia de înaintare, 
apăsînd tasta S, respectiv J. Dacă nu se apasă nici o tastă, mobilul îşi continuă 
deplasarea în linie dreaptă. La lovirea unui obstacol, se opreşte înaintarea 
și se afişează scorul. Valoarea scorului indică distanţa parcursă pînă la lovirea 
obstacolului. După parcurgerea unui ecran complet, se reia mișearea mobilului, 
modificînd locul de apariţie al acestuia și combinaţia de obstacole, 
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10 PRINT * CONDUCETI VEHICOLUL PRINTRE *; 
15 PRINT "OBSTACOLE * 

20 PRINT * VEHICOLUL SE DIRIJEAZA CU *; 
25 PRINT *TASTELE * 

30 PRINT * S= SUS , j=J0s-* 
40 DIM D(30,30) 

so s=o0 

60 MAT D = ZER 

70 INITP 

80 FOR A = 1 T0 S0 

90 X = INT(RND(X)x29)+1 
100 Y = INT(RND(X)*29)+1 
110 PRINT AT(X,Y);"w* 

120 D(X,Y) -1 a 

130 NEXT A 

140 P = INT(RND(X)x29)+1 
150 FOR A = 30 TO 1 STEP -1 
160 PRINT AT(P,A);"c* 

170 IF D(P,A) = 1 THEN 310 
180 PRINT AT(P,A);*=* 

190 2$ = INKEY$ 

200 1F 25 = * * 1uEh 480 
210 1F 2$ = *J* THEN 260 
220 IF 25 (> *S* THEN 280 
230 IF P =.1 THFN 260 

240 P e P-l 

250 G0T0 280 

260 IP P = 30 THEN 280 

270 P * pri 

280 £ = Ș+i 

290 NEXT A 

300 0076 60 

310 FOR Z e 1 TO 20 

320 PRINT AT(P,A);"9* 

330 PRINT AT(P,A);" * 

340 NEXT Z 

330 PRINT AT(2y,1);“ SCORUL *;3 
360 FOR 1 = 1 TO 100 

370 REHN * TIHS * 

380 NEXT 1 

390 6070 50 

400 END 


13.17. Tragerea la ţintă 


Pe ecran se afişează o ţintă, considerată ca fiind în faţa privitorului. 
Se introduce viteza iniţială a proiectilului și unghiul înălțătorului. Programul 
consideră ţinta ca fiind la o distanţă aleatoare față de trăgător. Din datele 
in “roduse, pe baza formulei: 


S=Vsin es] 


unde : 

S este distanţa parcursă de proiectil; 

Ve este viteza” iniţială ; pen 

e este unghiul înălțătorului ; 

g este acceleraţia gravitaţională. % 
Se determină dacă s-a atins sau nu ţinta. 
"Dacă ţinta nu a fost atinsă, se afișează distanţa la care a căzut proiectilul 
faţă de ţintă („+ pentru lovitură prea lungă, „——” pentru lovitură prea seurtă). 
Se caută lovirea țintei din cît mai puţine încercări, pe baza coroborării datelor 
faişate pentru loviturile în gol. 
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10  INITP 
20 PRINT AT(1,10);* TINTA-, 
30 PRINT AT(3,13);*a 


40 PRINT AT(4,10); . 
SO PRINT AT(S,10); . 
60 PRINT AT(6,10); e 


70 PRINT AT(8,1);* VITEZA UNGHIUL »*; 
75 PRINT * DISTANTA * 

80 PRINT AT(9,1); m-as"; 
85 PRINT s-o" 

90 k=o0 

100 a =1 

110 X = INT(RRD(X)x*15000+50) 

K = Ket 

122 IF K <s32 THEN 130 

125 k = 32 

130 PRINT AT(5,22);*)*;Q;*<* 

140 PRINT AT(10+k,1);*7%; 

150 INPUT V 

160 IF V <10 THEN 140 

170 PRINT AT(10+k,10);*)*; 

180 INPUT U 

190 IF U < 3 THEN 170 

200 1F U > 89 THEN 170 

210,2 = INT(V*2mSIN(P1uU/90)/9.81) 

220'E = Z-X 

230 PRINT AT(10+K,20);E 

240 1F 2 = X THEN 270 

250 Q = ai 

260 GOT0 120 

270 PRINT AT(13,1);* NIMERIT * 

280 PRINT AT(15,1);* DORITI ALT JOC (Daal) * 
290 INPUT D 

300 IF D = 1 THEN 10 

310 STOP 

320 END 


13.18. Ecranul magic 

"wa Programul permite trasarea oricăror figuri compuse din drepte orizon- 
tale și verticale, pornind dintr-un punct dat iniţial. Deplasarea punctului este 
coordonată de tastele : 

1— dreapta 3— jos 

2— stinga 4— sus 

Punctul se deplasează continuu, oprirea trasării făcîndu-se prin apăsarea 
oricărei taste în afara celor de mai sus. Reluarea trasării se face prin apăsarea 
oricărei taste de comandă a direcţiei de deplasare. 

Direcţia de deplasare poate fi completată, pentru a avea posibilitatea 
trasării sub un unghi oarecare față de orizontală. Dacă se dorește o trasare 
la un unghi de 45 în direcţia dreapta-sus, se introduce linia 105 de recunoaștere 
a. tastei “De 


195 IF A$ =''5'"' THEN 590 

La linia 500 se introduce secvența de trasare: 
500 REM “DEPLASARE 45 DREAPTA SUS“ 
510 B$=INKEY $ 

526 IF Y=100 THEN 570 

530 IF X=100 THEN 570 

540 X=X+1 

550 Y=Y+1 

560 DRAW X, Y 
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579 A $ =INKEYS 
580 IF A $=B$ THEN 520 
599 GOTO 09 


Programul poate fi generalizat pentru trasări pe alte direcţii, trasări 
de linii curbe etc. 


S IN1TP 
10 PRINT AT(1,19;* ECRAN MAGIC * 
15 PRINT AT(2,1);* 1= DREAPTA" 
20 PRINT AT(3,1);* 2= STINGA «* . 
25 PRINT AT(4,1);* 3= 30s e 
30 PRINT AT(5,1);* 4= SUS * E 
35 PRINT AT(6,1);* COORD. DA INCEPUT +, 
40 INPUT X,Y 
45 MOVE X,Y 
50  A$ = INKEYS 
60 IF A$=* * THEN 50 
= *1* THEN 120 
0 1F A$ = "2" THEN 200 
= *3* THEN 280 
100 IP A$ = *4* THEN 360 


120 REM * DEPL. DREAPTA * 


140 IF X = 100 THEN 170 
150 X » X+1 

160 DRAU X,Y 

170 A9 = INKEY$ 

180 IF AS = B$ THEN 140 
190 G0T0 50 

200 REM * DEPL. STINGA * 
210 859 = INKEY% 

220 IF X = 0 THEN 250 
230 X = X-1 

240 DRAU X,Y 

250 A9$ = INKEY9 

260 IF A$ = B$ THEN 220 
270 GO0To şo 

280 REM * DEPL. 103 * 
290 B5 = INKEYS 

300 IF Y = 0 THEN 330 
310 Y = Y-1 

320 DRAU X,Y 

330 A$ = INKEY$ 

340 IF A$ = B$ THEN 300 
350 GOTO 50 

360 REM * DEPL. SUS * 
370 2$ = INKEY3 

380 IF Y = 100 THEN 410 
390 Y = Yi 

400 DRAU X,Y 

610 A9 = INKBYS 

420 IF A9 - 89 THEN 380 
430 G0T0 SQ 

990 END 


13.19. Nim 


Jocul Nim — originar din China antică — este cunoscut și sub numsie 
de Fan-Tan. 


Se generează într-un număr oarecare de grămezi un număr aleater de 
obiecte. Jucătorii (în cazul de faţă operatorul și calculatorul) elimină cu schim- 
bul obiecte din grămezi, şi anume cel puţin un obiect (cel mult toată grămada), 
dar la un moment dat numai dintr-o singură grămadă. 

Ciştigă cine scoate ultimu sau ultimele obiecte din ultima grămadă 
rămasă. 


Nim 201: 


O grămadă de obiecte se reprezintă printr-o linie de; asteriscuri (un aste- 
risc reprezintă un obiect). Numărul total de grămezi se stabilește de operator 
la începutul fiecărui joc. Numărul obiectelor din fiecare grămadă se generează: 
aleator la începutul jocului. 


o j (10) 1660 NRI J 
e ae ti sup ecua i 1870 1F 4 <> O THEN 1700 
20 PRINT " CI) CITE GRAMEZI JUCATI? * 1e30 £ * “i 
30 INPUT N 1% RE TURN 
40 IF N <= 0 THEN 20 170 £ a 0 
S0 IFN > 9 THEN 20 1705 9=W 
55 MAT V = ZER 1710 VI) = ALU) = INT(CA(I)= LD aRND(KID 
60 REM " GENERAREA GRAMEZILOR * 1720 RETURN 
70 FOR I = 1 TON 1730 u=0 
BO ACI) =. INT( RND(X) i 30) 1740 FOR 121 TON ja 
65 IF ALI) = 0 THEN 80 1745 IF B(1,W) O 1 THEN 1760 7 
90 NEXT 1 1750 B(1,W) „0 
95 GOSUB 2050 1752 U=1 
100 PRINT ” DIN CARE GRAMAUA SI! CITE «+ 1755 LaN 
105 PRINT * OBIECTE LUATI? * 1760 NEXT 1 
110 INPUT 1, K 1770 FOR j e W-l TO 1 STEP -i 
120 IF 1 > N THEN 230 1775 IF Ot(y) = 0 THEN 1790 
130 1F 1 < 0 THEN 230 1750 B(U,J) = 1 — BUD 
140 IF K > A(I) THEN 230 1790 NEXT yJ 
150 IF K < 1 THEN 230 1795 1„>uU 
160 VII) sk 1300 FOR Je STO1 STEP -i 
170 GOSUB 650 1810 VII) m 2 m VI) + BI, 
180 REM * JOACA CALCULATORUL * 1820 NEXT J 
190 GOSUB 1300 1830 V(L) s AD = VII) 
200 GOSIUB 650 1340 s=0 
210 IF C <> 0 THEN 290 1850 FOR J= 1 TON 
220 GOTO 95 1960 S = Ş + AU) = VI) 
230 PRINT " EROARE * 1870 NEXT J 
240 GOTO 95 1880 IF S$ = O THEN 1910 
290 1F C = -1 THEN 320 1890 cao 4 
300 PRINT " AM CISTIGAT * 1900 RETURN “r 
310 STOP 1910 C=t 
320 PRINT * Al CISTIGAT * 1920 RETURN 
220 STOP 2050 FOR 1 = 1 TON 
€50 FER le 1 TON 2060 IF A(1) = 0 THEN 2100 
660 ALI) a AI) = VID 2070 FOR U = i TO AU) 
670 VU) mo 2080 PRINT "x"p 
680 NEXT 1 2090 NEXT y 
€50 RETURN 2100 PRINT 
1300 MAT B = ZER 2110 V(l) = 0 
1350 MAT O = ZER 2120 NEXT 1 
1360 FOR U= 1 TON 2130 RETURN 


12970 M = At 

1400 FOR L=1T05 

1410 BWU,I) =M = INT(M/2 09 e 2 
1420 M = INT( M/2) 

3230 041) = BUU,I) + 0 
1440 IF Q(I) > 1 THEN 1440 
1450 GOTO 1470 

1460 040) = 0 

1470 NEXT 1 

1475 NEXT U 

1480 W=0 

1425 FOR U.= 5 TO 1 STEP 4 
1420 IF OtU) <> Q THEN 1$10 
1500 'GOTO 1530 

isioW=uU 

1520 U=1 

1530 NEXT U 

15401F W <> O THEN 1570 
1550 GOSUB 1600 

1560 RETURN 

1570 GOSUB 1730 

1530 RETURN 

1600 W = 0 

16% FOR JI = N TO 1 STEP -1 
1620 IF A(J) <> O THEN 1640 
1630 GOTO 1660 

1£40uW = 

18530 J=1 
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13.20. Turnurile din Hanoi 


Jocul este cunoscut şi sub numele Acele Faraonului şi constă în a trans- 
fera un set de discuri aranjate în ordine descrescătoare a mărimii lor de pe 
„primul ac pe al treilea ac, utilizînd ca element ajutător acul din mijloc. Regula 


100 REM * TURNURILE DIN HANOI * 

110 DIM T(U10,% 

120 E =0 

130MAȚ T = ZER 

140 PRINT * TURNURILE DIN HANOI * 

150 PRINT * DISCURII.E SE MUTADIN STINGA * 
155 PRINT * IN DHEAPTA SI NU SE PUNE DISC * 
160 PRINT * MAI MARE PE DISC MAI MIC * 

200 PRINT * CU CITE DISCURI JUCATI? (MAX 10) * 
ZL0 INPUT $ 

230 M=0 

240 IF $ > 0 TIIEN 260 

250 GOTO 270 

250 IF $ <s10 THEN 330 

270 E = Eri 

250 1F E > 2 THEN 210 

270 PRINT * DATI NUMAR CORECT 1-10” 

300 GAITO 200 

310 PRINTI * NU JUCATI CORECT * 


320 STuP 

350 PRINT * IN PROGRAM DISCURILE SINT BOTEZATE * 
360 PRINT “ PRIN NUMERE ZECIMALE 1 LA 10 * 

370 PRINT * DACA JUCATI CI MAI PLITIN DECIT 10 * 
380 PRINT * VETI JILICA CU DISCURI DE NUMERE CELE * 
385 PRINT * MAL MARI * 

380 PRINT * MUTATI DE PE ACUL 1 PE ACUL 3 

400 Y = 10 

410 Da 10 


420 FOR X = STO 1 STEP 1 

430 14%, 2 D 

440 Dn = D-1 

450 Y = Y-1 

460 NEXT X 

GOSUB 1240 

PRINT AT(27,1)5* CARE DISC IL MUTATI? "> 
£E=o 

INPUT D 

O 1F D > 10-$ THEN Ş30 

520 GUTU 40 

IF D <= 10 THEN S80 

PRINT * DISC INEXISTENT * 

E = Eri 

IF E > 1 THEN 310 

GOTO 450 

REM * VERIFICA DACA DISCUL E SUR ALT DISC * 
As 10 

LEA ici 

FOR R = 1 TO 10 

FOR C=1T03 

IF T(R,CD <> D THEN 630 

A=R 

Ss Bac 

Re 10 

pag 

NEXT C 

NEXT R 

IF T(A-1,B) (> O THEN 670 

GOTO 700 

PRINT » DISCUL E SUB ALT DISC ” 
90 GUTI 480 

E=0 

PRINT * PE CARE AC IL MUTATI? “3 
INPUT N 

IF (N=19)x(N-2)4(N-3) = 0 THEN 800 
E = Er 

PF E > 1 THEN 310 

PRINT * DATI NUMAR CORECT 1, 2, 2 
GATU 710 

A=0 

5 FORR= 1 TO 10 
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810 IF T(R,N) = O THEN 82% 

g15A-R 

820 R =» 10 

925 NEXT R 

830 IF A » 0 THEN 870 

935 REM * VERIFICA SA NU SR PUNĂ DISC MAI * 

Sa REM * MARE PE MAL MIC * 

440 1F D < T(A,N) THEN 870 

350 PRINT * DISC MAI MARE PE MAL MIC NU SE POATE ” 
850 GOTD 480 

870 FOR V = 1 TO 10 

875 FOR W = 1 T03 

880 IF T(V,W) = D THEN 890 

435 GOTO 910 

890 Aav 

9 Ba 

300 Va 10 

“0% Wa 3 

910 NEXT Ww 

<1% NEXT V 

Ș20 FOR U m 1 TO 10 

22% IF TIU,ND m 0 THEN 950 

330 x e u-i 

seu = 10 

940 BUTO 940 

950 lao 

34.0 NEXT U 

970 TX,ND 2 T(A,B) 

980 T (A,B) 20 

S%0 REM * TIPARESTE STAREA ACTUALA ” 

GOSUB 1240 

Mm Mei 

A=0 

FOR R = 1 TO 10 

FOR C = 1 T02 

IF T(R,C) = O THEN 1060 

A=i 

NEXT € 

O NEXT R 

IF A = 0 THEN 1120 

IF M <m 2*S THEN 480 

PRINT * ATI DEPASIT NUMARUL DE PASI MINIH ” 
3 PRINT * NECESARI * 

sToP 
PRINT * 
PRINT » 
2 INPUT A$ 
IF AS a 
0 STOP 
INLTP 
DA = 26 
FOR Ka 10 70 1 STEP -1 


ATI REZOLVAT ÎN "Mr" PASI * 
MAI JUCATI? (DA/N) * 


"DA" THEN 120 


FUR 1 =1T03 
230 IF Thu) = 0 THEN 1340 
O PRINT AT(A, Z-INT(T(K,J)/2)+101 
FOR V = 1 TO T(k,J) 
20 PRINI "ax"ş 
220 NEXT V 
OZ = 2+10 
O NEXT J 
360 A A-3 
3 PRINT 
20 RETURN 


de bază a transferului specifică obligativitatea mutării unui disc mai mic peste 
unul mai mare, niciodată invers. 

În jocul realizat pe calculator se permit maxim 10 discuri. Discurile sînt 
reprezentate prin asteriscuri. Numărul de asteriscuri care formează discul! 
reprezintă mărimea discului. Pașii necesari pentru a termina jocul sînt 2*-1, 
unde n reprezintă numărul de discuri în joc. Dacă iueătnrul uu termină în 
număr de paşi necesari, se oprește jocul. 
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13.21. Jocul cu trei grămezi 


Se generează trei grămezi cu diferite numere de obiecte în fiecare grămadt. 
Jucătorul mută dintr-o grămadă oarecare într-o altă grămadă un obiect în 
contul unui obiect din a treia grămadă care se elimină din joc. Iniţial cel puţin 


$ în1re 


10 
12 
15 
20 
23 
30 
35 
40 


PRINI * JOCUL CU TREI GRAMEZI * 


SE DAU TREI GRAMEZI PRIN * 


PRINT * NUMERELE DE OBIECTE BIN ELE “ 
PRINT * JOCUL CONSTA IN A MUTA UN OBIECT * 
PRINT * OINTR-0 GRAMADA IN ALTA IN * 


PRINTI * CONIUL UNUI OBIECI DINA TREIA a 
PRINT ” CARE SE ELIMINA DIN ME * 

PRINT SOOPUL ESTE DE A AJUNGE LA DOUA * 
PRINT * GRAMEZI GOA E SI INA TREIA 3 
PRINTI * SA RAMINE LIN SINGUR OBIECT * 

PRINT * GRAMEZILE SE INDICA PRIN 1, 2, 3" 
DIM 1(3) 

T(19 e INT( RN (XD e 19 +1) 
Ţ(25 = INT (RND(X) m 19 e 4) 
Tia) = INI (AND(XD sn 19 +1 
N = INTL AND(X) *2+ 1) 
M= INT( RND(XD) x 2 +1) 
IFNa=aM THEN 110 


SR ză AR d 


IF P = N THEN 140 

IF Pa M THEN 140 

GOTO 1850 

P=P+il 

GOTD 125 

IF INT(T(N)/2) e T(N)/2 THEN 165 
TE INT(T(M)/25 e T(M)/2 THEN 190 
GOTO 205 

IF INICT(M/2) = T(M/2 THEN'175$ 


D GOTO 203 


IF INT(T(P)/29 <> T(P)/2 THEN 205 
TIP) = INT( AND(X) m 19 +1) 
GOTO 173 

IF INT(T(P)/2) e T(P)/2 THEN 205 
TIP) a NT( AND(XD) n 19 +1) 
Gma 1% 

PRINT * INCEPEM UN JOC (DA 4) * 
INPUT D 

IF D= 1 THEN 225 

GOTO 210 


5 INITP 


1l=1 


PRINT AT(I,S)3T(1)$” ş *sT(2)3* e T(39 


Mi. dt E | 


; IF 1 < 30 THEN 255 


GOTO 225 

PRINT AT(31,2)3" a 
PRINT AT(30,2);" DIN CARE = IN CARE “* 
PRINT AT(31 2); 

INPUT D,E 

IF D= E THEN 253 

IF D > 2 THEN 255 

IF E > 3 THEN 253 

G=0 

FOR J=1T03 

IF D = J ȚHEN 310 

IF E <> J THEN 310 

TI) = TD et 

GATA 315 

TU) a T(9) at 

1F Ti) = =1 THEN 390 

NEXT J 

IF a = 1 THEN 410 

K=o0 

L=0 


3320 FOR Ja 1 T03 
33 IF Ti) <> 0 THEN 350 


KaKk+ 1 
GOTO 339 
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ŞS0 L = TD 

355 NEXT 

I6O IF Kk <> 2 THEN 235 
359 IF L = 1 THEN 380 


370 PRINT AT(30,1);* NU ATI AUUNS tu 
Serii [i LA REZULTAT BUN 


3S0 PRINT AT(30,1)3" ATI ANINS LA ca 
385 GOTO 70 i lia zi a 
390 END 


în două grămezi trebuie să existe obiecte. Scopul este ca în final să rămînă 
un singur obiect într-o grămadă, celelalte să fie goale. 

ni - Se poate demonstra că dacă în toate trei grămezile există iniţial obiecte 
în număr par sau impar (deci sînt de aceeași paritate) atunci jocul nu are 
soluție. Dacă la două grămezi paritatea este aceeași și a treia are altă paritate, 
jocul are soluţie și în final acele grămezi vor fi goale care au avut aceeași pari- 
tate, rămînînd un obiect în grămada cu paritate diferită. 


13.22. Ruleta 


Un joc clasic de noroc este ruleta. Simularea pe calculator scoate în 
evidenţă doar țelul ca jucătorul cu suma de bani inițială să rămînă cît mai 
mult în joc, nu latura de noroc. 

În cazul de față se generează aleator numărul și culoarea ciştigătoare. 
Jucătorul poate miza prin numere între 1 și 50 cu 5 pînă la 500 de unităţi de 
bani cu mai multe mize. Iniţial jucătorul are la dispoziție 1000 de unităţi 
de bani. 

„Mizele sînt după cum urmează . 

— pe un număr se poate miza cu numărul respectiv (1 pină la 36), pe 0 
sau 09 se mizează cu numerele 49 respectiv 50. Cîştigul este de 35 de ori miza. 

— pe numere între 1 și 12; 13 şi 24; 25 și 36 se mizează cu codurile 37; 
38 respectiv 39, cîşticul fiind dublu. 

„—pe numere în prima coloană (1, 4, 7, 10...) în a doua coloană (2, 5, 
8, 11 ....) şi în a treia coloană (3, 6, 9, 12...) se poate miza cu codurile 40 ; 
41 respectiv 42, ciștigul fiind tot dublu. 

— pe numere între 1 şi 18; 19 și 36 se mizează cu codurile 43 respectiv 
44 ciștigul fiind doar miza 

—pe număr par sau impar se mizează cu codurile 49 respectiv 46; 
pe roșu sau negru cu codurile 47 respectiv 48, cîştigul fiind simplu. 

Pentru fiecare miză făcută de jucător trebuie să se indice două numere: 

— prima reprezintă codul (număr între 1 și 50) 

—a doua reprezintă valoarea mizei). 
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10 DIM B(100),C(100), TEL003, XI, ALSO) 490 1F 8 € 25 THEN 620 
20 MAT X = ZER 700 GOTO seo 
30 P = 1000 710 REM * 25 = 36 (COD 395 23 * 
40 D = 100000 720 IF S > 24 THEN 740 
SO PRINT * CITE MIZE FACETI? * 730 GOTO 580 
60 INPUT Y 740 LF S < 37 THEN 620 
70 IF Y < 1 THEN S0 750 GOTO 580 “ 
EO 1F Y <> INT(Y) THEN 50 760 REM * PRIMA COLOANA (COD 40) 231 * 
85 1F Yv > SO THEN 50 770 K=0 
90 MAT A = ZER 780 FOR 1 = 4 TO 34 STEP 3 
100 FORC=1T0Y 790 IF SC 1 THEN E0 
110 PRINT" MI ZAC 800 kat 
120 INPUT X,Z 810 NEXT îi 
120 B(C) = 2 820 IF K = 1 THEN 620 
140 T(C)ax%X Ez0 GUTO 580 
150 IF X < 1 THEN (10 640 REM * COLOANA A DOUA (COD 81) 21” 
1F X>38 THEN 110 850 kao0o 
170 IF X <> INT(X) THEN 110 S60 FOR 1 s 2 TO 35 STEP 3 
480 IF Z < 5 THEN 110 870 IF S$ 4 1 THEN 090 
190 IF Z <> INTIZ) THEN 110 80 Kai 
210 IP 2 > 500 THEN 110 690 NEXT 1 
220 IF A(X) = 0 THEN 250 700 1F K = 4 THEN 620 
230 PRINT * ACEST COD A MAI FOST * 910 GOTO 520 
240 GOTO 110 970 REM * COLOANA A TREIA (COD 42) 21 * 
250 AX) = 930 K 20 
260 NEXT C 940 FOR i = 3 TO 36 STEP 3 
270 PRINT 950 IF SC 1 THEN 970 
275 PRINT "uwmex SE INVIRTE ROATA km” 760 ke=1 . 
276 PRINT 970 NEXT 1 
230 S = 1 + INTC28sRND(X)) 930 IF Ka 1 THEN 620 
290 X(S) a X(S)+i 970 GOTO $30 
300 IF $ < 37 THEN. 360 1000 REM * 1 = 18 (COD 43) îsi * 
310 IF S = 37 THEN 340 1010 LF $ < 19 THEN 1030 
320 PRINT ” CISTIGA 00" 1020 GUTO 520 
230 GOTO 490 1030 PRINT * CISTIG "sB(C)s+ BANI CU MIZA st 
340 .PRINT " CISTIGA 0 * 1040 Da Do BD 
330 GOTa 490 1050 Pa Pe 00 
RESTORE 1069 GOTO 1540 
370 k = 0 1070 REM * 19 = 36 (COD 48) tsi * 
380 FOR 1 = 17018 1080 IF S < 19 THEN 530 
390 READ R 1090 îF S < 37 THEN 1030 
400 IF R (> S THEN 420 1100 GOT0 580 
s10Kk=1 1110 REM * NR. PAR (COD 64) set * 
420 NEXT 1 1120 IF $/2 <> INTtS/2) THEN S80 
430 IF K = 1 THEN 470 1130 IF Ş < 87 THEN 1030 
440 AS = "NEGRU" 1140 GOTO 580 
450 PRINT * CISTIGA 935", 1:49 1150 REM * NR. IMPAR (COD 45) îsi * 
460 GOTO 490 1160 "IF S/2 = INTtS/2) THEN 560 
470 At =" ALB” 1170 IF $ < 37 THEN 1020 
480 GOTO 450 1180 GOTO 520 
490 PRINT 1190 REM * ROSU (COD 47) tei * 
500 FORCe1TOY 1200 RESTORE 
510 IF Tica < 37 THEN 1400 1210 Kka0 
«520 ON T(C)-36 GOTO 560,660,710,760,840 1220 FOR 12 1 TO 18 
525 ON T(C)=41 GOTO 920,1000, 1070, 4410 1230 READ R 
530 ON T(C)-45 GOTO 1150,1190,1290 1240 IF $< R THEN 4260 
540 GOTO 14co 1250 ke 
S60 REM " 1 - 12 (COD 37) 241 * 1260 NEXT 1 
570 IF S = 12 THEN 820 1270 IFK m 4 THEN 1030 
S80 PRINT " PIERDERE ";B(C)p* DANI CU MIZA * 1280 GOTO seo 
590 D=D+ EB(0) 1290 REM * NEGRU (COD 48) îsi * 
600 P=P - B(C) 1300 RESTORE 
610 GOTO 1540 , 1310 k=0 
620 PRINT ” CISTIO ";B(C)w23* BANI CU MIZA ” 1320 FOR 1 a 1 TO 18 
630 D = D - B(C)m2 1320 READ.-R 
640 P = P + BuD)*e 1340 IF $ <> R THEN 1260 
630 GOTO 1540 1350 K=1 
660 REM * 13 -24 (COD 38) 2:13 * 1360 NEXT 1 
670 IF S >X12 THEN 690 1370 IF K = 1 THEN 580 


680 GOTU Su 1380 IF $ > 36 THEN 380 
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1391 GNT0 1030 

1400 REM * O SI 00 (COD 49 ŞI 50) tii ” 
1410 1F T(E) <49 THEN 1490 

1420 IF T(C) e 49 THEN 1450 

1430 IF T(C) = SO THEN 1470 

1440 GOTO 580 

1450 IF S = 37 THEN 1510 

1460 GOTO $80 

1470 IF S = 38.THEN 1510 

14280 GOTO 580 

1490 IF TC) = $ THEN 1510 

1500 GOTO Seo 

1510 PRINT * CISTIGUL ";B(C)w35;* BANI CU MIZA "Cc 
1520 D= D - BC) m 35 

1530 P=P + B(C) n 35 

1540 NEXT C 

1550 PRINT ” BANCA ":Dp” BANI “ 
1560 PRINT * AVETI ";P;* BANI ” 
1570 IF P > 0 THEN 1600 

1550 PRINT * NU MAI AVETI BANI * 
1590 GOTO 1630 

1600 IF D > 0 THEN 1630 

1610 PRINT * S-A GUOLIT EANCA ” 
1620 D = 101000 x 

1630 PRINT " CONTINUAM? (DA/NUD * 
1650 INPUT Y$ 

1650 IF Y$ = “DA” THEN 50 

1660 STOP 

1670 DATA 1,3,5,7,9,12,14,16,18,19,21,23,2%,27 
1675 DATA 30,32, 34,36 

1680 END 


13.23. Trasarea bioritmului 


Programul solicită pentru persoana căreia i se trasează bioritmul urmăe 
toarele date : 

— data naşterii ; 

— data de la care se doreşte începerea trasării. 

Se verifică dacă anul, luna și ziua de naștere sînt corecte, dacă nu, se 
reia întrebarea. La fel se verifică data trasării și dacă data trasării este după: 
data nașterii. 

Se calculează numărul de zile trecute de la data nașterii pînă la data 
trasării. Diferenţa de ani (U-A) între trasare și naștere ; diferența de zile 
(X—Z) între zilele de trasare și naștere ; anii bisecți pentru care se adună cite 
o zi (B); lunile între naștere și trasare E (Zi) se iau în considerare la calculul” 
zilelor. Formula de calcul este 


N=(U—A)*3652 Z(7i)-+-(X—Z)+B 


Se trasează pe o perioadă de 15 zile, începînd cu data solicitată, bioritmul 
persoanei în cauză. Intervalul de 15 zile a fost ales pentru a avea o imagine 
suficient de bună (neînghesuită) pe ecran. 

După iniţializarea ecranului se trasează axa pe care se marchează cele 
15 zile. Subprogramul 1000 calculează valoarea curbei sinus în funcţie de varia- 
bila I cu care se apelează. Pentru variaţia intelectului periodicitatea este 33: 
zile, pentru psihic 23 zile iar pentru fizic 28 zile. Curba intelect se marchează» 
cu “4+“, cea pentru psihic cu “*“ iar cea pentru fizic cu *.“. Dacă cele 15 zile 
trec dintr-o lună în luna următoare se apelează subprogramul 1300. Pe ecran 
se trasează 3 sinusoide cu caracterele de mai sus. 

Programul poate fi reluat pentru altă dată de lansare a trasării bioritmului 
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PRINT *BIORITH* 


Din T(12) 

T(i) = 31 

T(2) * 28 

T(3) „31 

Ţ(4) = 30 

T(S) „31 

Tt6) = 30 

T(7) a 31 

T(8) = 31 

T(9) = 30 

T(10)= 31 

T(11)= 30 

T(12)= 31 

PRINT * DATA NASTERII * 
PRINT * ANUL * 

INPUT A 

PRINT * 2IUA * 

INPUT Z 

PRINT * LUNA * 

INPUT L 

IF A > 1999 THEN 75 
IF A < 1900 THEN 75 
IF 2 < 1 THEN 75 

WF 2 > 31 THEN 75 

IF L < 1 THEN 75 

IF L > 12 THEN 75 
PRINT * DATA LANSARII ANALIZEI 
PRINT * ANUL * 

INPUT U 

PRINT * ZIUA * 

INPUT X A 

PRINT * LUNA * 

INPUT Y 

IF U < A THEN 140 

IF U > 1999 THEN 140 
IF X < 1 THEN 140 

IF X > 31 THEN 140 
IF Y < 1 THEN 140 

IF Y > 12 THEN 140 
B=o0 

C=A 

IF ÎNT(C/4) <> C/4 THEN 225 
B = B+i 

C = C+t 

IP C <= U THEN 215 
IP INT(A/4) <> A/4 THEN 250 
IF L <= 2 THEN 250 


B = B-1 

IF INT(U/4) <> 
IF Y > 2 THEN 2635 
B=B-1 

N = (U-A)x36S5+(X-2)+B 
IF Y > L THEN 295 

FOR 1 = Y-1 TO Lei 

N = N-T(I) 

NEXT 1 


U/4 THEN 265 


870 
900 


290 
295 
300 
303 
310 
320 
325 
330 
340 
350 
360 
362 
365 
370 
375 
380 


L] 440 


FOR E = 2 T0 30 STEP 2 
3 = 33 

GOSUB 1000 

PRINT AT(H,E);e" 

J = 23 

GOsUB 1000 

PRINT AT(R,E);"e 

I = 28 

GOSUB 1000 

PRINT AT(H,E);*.* 

N = Net 

X = Xe 

IF T(Y) < 0 THEN 850 
G0T0 860 

GOSUB 1300 

NEXT E 


PRINT AT(27,2); "INTELECȚ a + 


PRINT AT(28,2); "PSIHIC 
PRINT AT(29,2); "FIZIC 
STOP 


1000 F = INT(N-INT(N/J)uJ) 
1005 F = (F/I)wPin2 


1010 
1015 
1020 
1300 
1305 
1810 
1310 
1320 
1325 
1330 
1335 
1340 


F s.SIN(F? 

H = IS-INT(F*10) 
RETURN 

1F Y <> 2 THEN 1340 


GOTO 310 

FOR 1 = Let TO Y-i 

N = NeT(L) 

NEXT 1 

INITP 

PRINT AT(15, 1); none mmm 
PRINȚ Meine 

FOR J « 2 T0 30 sTEP 2 

PRINT AT(15,J);*1* 

NEXT J 

ON Y GOTO 370,380,390,400,410,420 

H = Y=6 

ON H GOTO 430,440,450,460,470,480 
PRINT AT(2,2);U;*,"*;X:;","; “LANUARIE* 
GOTO 490 

PRINT AT(2,2);U:",";X;","; "FEBRUARIE? 
GOTO 490 

PRINT AT(2,2);U;*,*;X;"*,"; “MARTIE” 
GOTO 490 

PRINT AT(2,2);U;",";X;*,"; "APRILIE" 
GOTO 490 

PRINT AT(2,2):;U;*,*;X;","; "MAL" 

GOTO 490 

PRINT AT(2,293U;",*;X;*,";*LUNIE” 
GOTO 490 

PRINT AT42,292U3*,*3X4%,""lULIB* 
GOTO 490 

PRINT AT(2,2):U;*,*X;",*; "AUGUST* 
GOro 490 

PRINT AT(2 2);U;",*;X;","; "SEPTEMBRIE* 
GOTO 490 

PRINT AT(2,2);U;",";X;*,"; "OCIOMBRIE” 
GOTO 490 

PRINT AT(2,2);U;*.*;X;",*; "NOEMBRIE* 
GOTO 490 

PRINT AT(2,2);U;*,*;X;","; DECEMBRIE” 
FOR K = 1 TO 21 STEP 10 

IF X < 10 THEN 530 

PRINT AT(16,K);X 


GOTO 540 

PRINT AT(16,k+1);X 
X = X+5 

IF X <= 28 THEN 700 
IF Y <> 2 THEN 610 
M = 29 

IF INT(U/4) + U/4 THEN 690 
M = 28 

GOTO 670 

IF X <= 30 THEN 700 
M = 30 

IF Y = 4 THEN 690 
IF Y = 6 THEN 690 
IF Y = 9 THEN 690 
IP Y = 11 THEN 690 
IF X = 31 THEN 700 
H=31 

X = X-H 

NEXT k 


IF INT(U/4) <> U/4 THEN 1340 


IF X <> 29 THEN 1340 
X = X+1 

Y = Yi 

IF Y <= 12 THEN 134Q 
Vas 

U = U+i 

RETURN 
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13.24. Dicţionar de sinonime 


Programul permite crearea unui dicționar de sinonime în două sau trei 
limbi. 

L-a creare (lansare program prin RUN) se stabileşte dacă se creează în 
2 sau 3 limbi și limbile în care se creează. I-a lansare cu GOTO 10) se utilizează 
dicționarul creat. În acest caz se poate căuta după oricare limbă (sau după 
oricare rubrică) un cuvînt obţinînd celelalte cuvinte (rubrici). 

La lansare cu GOTO 10 mai există posibilitatea de completare a dicţio- 
narului (fişierului) creat cu cuvinte noi. 

Dacă la căutare nu se găseşte cuvîntul cerut, se revine la secvența de 
căutare sau de completare a dicționarului. 

Programul poate fi utilizat şi ca bloc-notes, cele 3 rubrici corespunzătoare 
celor 3 limbi putînd conţine orice informaţie (de ex. numele unei persoane, 
adresa și numărul de telefon asociate). 


10 PRINT * DICTIONAR DE SINONIME * 

20 IFN : 0 THEN 400 

30 REM * DICTIONAR CREAT * 

10 PRINT * DATI CUVINTE NOL (DA=t) * 
So INPUT G 

60 IF OG = 1 THEN 400 

70 REM * CAUTARE IN DICTIONAR * 

80 PRINT "-DUPA CARE LIMBA CAUTATI? * 
90 INPUT Bs(T0) 


100 A =0 
110 IF 8$ = X$ THEN 180 
120 A :l 


130 IF 8% = Y$ THEN 180 

140 IF M = 2 THEN 80 

150 A = 21, 

160 IF 8% = Z$ THEN 180 

170 GOTO 80 

180 PRINT * DATI CUVINTUL ÎN LIMBA *;8$ 
190 INPUT C$(T0) 


200 1=1 
210 1F C$ = DS(1,Ar1TOA+L) THEN 260 
220 1 = lei 


230 IF | <= N THEN 210 = 

240 PRINT * NU EXISTA CUVINTUL ";C$ 

250 G0T0o 8o 

260 PRINT DS(1,TOL),*a", 

270 IF M = 2 THEN 290 

280 PRINT D$(1,L+1T02xL); "e", 

290 PRINT D$(1,1+(M-19)*LTOMuL) 

300 G0T0 80 

400 REM * CREARE SI COMPLETARE DICTIONAR * 
410 IF N <> O THEN 520 

420 PRINT * IN 2 SAU 3 LIMBI CREArI? * 
430 INPUT M 

A40 DIM D'5(40,Mx15) 

ASO DIM Ccşt(15) 

460 PRINT * DATI LIMBILE DICTIONARULUI * 
470 INPUT XS 

480 INPUT Y$ 

490 IF M = 2 THEN S10 

S00 INPUT 2$ 

S10 L = 15 

520 IF N > 40 THEN 620 

$30 PRINT ” DATI CUVINTUL IN LIMBA *;X$ 
340 INPUT D$(N,TO15) 

550 PRINT * DATI CUVINTUL IN LIMBA *;Y$ 
560 INPUT D$(N,16T030) 

570 IF M = 2 THEN 600 

580 PRINT * DATI CUVINTUL IN LIMBA *;2$ 
590 INPUT DS$(N,31T04$5) 

600 N = Ne 

610 GOTO 520 

620 SToP 

630 END 
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13.25. Ordonarea unui set de informaţii 


Programul posedă un set de date (în cazul de faţă datele constau din 
numele, greutatea și înălțimea unui grup de persoane) pe care le poate ordona 
după un criteriu dat. 

În exemplul de față, ordonarea se face pentru ordinea' alfabetică, după 
greutate sau după înălţime. După ordonare, se afișează lista de date ordonată. 


. i me 2 
S PRINT * ORDONAREA DUPA ALFABET * 

7 PRINT * GREUTATE SAU INALTIME » 

10  DIH A$(20,10),$(20),H(20) 

15 N=0 

20 N=N+1 

25 READ AS(N,TO) 

30 READ M(N) 

35 READ S(N) 

40 IF AS(N) <> "STOP" THEN 20 

45 PRINT + DATI CRITERIUL DE ORDONARE * 


So PRINT * 1 = ALFABET * 
55 PRINT * 2 = GREUTATE * 
60 PRINT * 3 = INALTIME * 
65 INPUT O 

70 REM * ORDONAREA * 

75 c=o0 


80 FOR K = 1 70 N-i 

85 ON 0 G0T0 90,1600,110 

90 IF AS(KD > AS(K+1) THEN 120 
95 GOTO 170 

100 IF S(K) > Stk+1) THEN 120 
105 GOTO 170 

110 IF H(K) > M(K+1) THEN 120 
115 GOTO 170 

120 S = S(k) 

125 S(K) = S(kel) 

130 S(k+1) = $ 

135 Bs = As(K,T0) 

140 AS(kD) = AS(K+1,T0) 

145 AS(K+1) = BS(T0) 

150 M = M(kD 

155 M(RD = M(ke) 

160 (ke) =H 

165 c = Cel 

170 NEXT K 

175 1F C > 0 THEN 75 

180 ON 0 GOTO 185,195,205 

185 PRINT » NUME  “;* INALTIME *;* GREUTATE » 
190 GOT0 210 

195 PRINT * NUME  ";" GREUTATE * 
200 GOTO 210 

205 PRINT + NUME  *;" INALTIME * 
210 FOR I = 1 TON 

215 ON 0 GOTO 220,230,240 

220 PRINT A$(1);" *;MH(1);* ;Scl) 
225 GOTO 245 i 

230 PRINT AS(1);* *;St(1) 

235 GOTO 245 

240 PRINT AS(1);" ";G61) 

245 NEXT 1 

250 sToP 

260 DATA "POPESCU»,200,80 

265 DATA "CONSTANTIN", 175,65,4 
270 DATA "BARNA*,180,70 

275 DATA "MARESCU+,185,71 

280 DATA *HICUTU',205,91 

285 DATA »ST0P"*,0,9 

300 END 


13.26. Decodificarea numerelor romane 


Programul serveşte la transformarea numerelor romane în numere zeci- 
male. Se introduce numărul roman sub forma unui șir de litere. Decoditicarea 
se face în baza regulilor definite prin DATA în liniile 440—550 din program. 
Regulile specifică succesiunea corectă de citre romane ; o succesiune eronată 
este semnalată printr-un mesaj. Numărul decodificat este apoi afișat pe ecran. 


După introducerea numărului roman în șirul T$ şi a lungimii numărului 
(din cîte litere se compune) în L, se citește prima literă și se verifică dacă e 
din setul de litere permise într-un număr roman (M, D, C, L, X, V, 1). Prima 
literă poate fi oricare dintre aceste litere. Aceasta e specificată în prima linie 
e M valoarea este 


Decodificarea numerelor romane 


de DATA unde de exemplu 100002 înseamnă că dacă litera 


de 1000 iar după M pot să apară litere după regula (02) care se găseşte în ta 
următoare de DATA. Valoarea-l în DATA înseamnă că numărul respect 


poate apare, deci se semnalează succesiunea eronată. 


13.27. 


REM DECODIFICAREA NUMERELOR ROMANE * 


DIM A(10,7),c$(7,1) 
MAT READ atit, 7) 

cs) R 
C$(2) 
cs(3) 
cs(4) 
c+(5) 
cs(6) 


"e 

"ya 

CSt7) 2 1] 

DIM T$(20» 
Li 


H=o0 
C=0 

P :0 

PRINT * DATI NUMARUL ROMAN 
INPUT T$(T0) 

L=0 

FOR 1 1 TO 20 

IP: TSCETOL> e * THEN 220 
L a L+i 

NEXT 1 

FOR 1-1 TO. 

k 0 


FOR J = 1107 

IF T$(ITOI) <> Cst(J) THEN 280 
k= 

NEXT 


Ik K <) O THEN 320 

PRINT * NUMA ROMAN ERONAT 
GOTO 120 

X = A(R,KD 

IF X < O THEN 300 


C = (1 -ABS(SGN(K-P)))n(Cri) 


1F C > 2 THEN 300 
P. și 
Și = H+INT(X/100) 
= X=100*1HT(X/100) 
fe R <> O THEN 410 
e 
NEXT 1 
PRINT M 
GOTO 120 


REM * DECODIFICAREA CONDITIILOR P! 
c 


REN “N tel -] 


DATA 100002, 50003, 10008, 5005, 
DATA 100002,50003, 10008,5005, 
DATA -t „ “1 „10008,500$, 
DATA zi -1 „10004,5005, 


DATA SSĂ = -1 „9006, 
DATA a. »ă = = 
DATA si A “1 zi 
DATA  80005,30005,10004,5006, 
DATA ci a, 8007, 3007, 
DATA Sat at „iz ui i tea | 


END 


Mira de control AMIC 


Programul generează o imagine de control asemănătoare mirei TV, cuprin- 
zind trasări de drepte orizontale şi verticale, a unui cerc circumscris unui pătrat, 
şi a setului de caractere, inclusiv cele semigrafice. Mira obţinută poate fi utili- 


zată la reglajul calităţii imaginii TV. 


v L) 

1099,507,110 
1009,507,110 
1009,507,110 
1009,507,110 
1009,507,110 


„1006,507,110 
E i e tOA 


1009,507,110 
1006,507,110 
800,300, 107 
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10 REM * IMAGINE DE CONTROL * 
INIT P 


30 PRINT AT(2,1);"HHhh IMAGINE DE CONTROL hit: 
40  WINDOU 0,150,0,160 

SO MOVE 152,75 

60 FOR 1 = 0 TO 2*P1 STEP PI/10 
70 DRAW 75+67*C0S(1),7S+67*SIN(12 
80 NEXT 1 

90 MOVE 0,142 

100 DRAW 160,142 

110 MOVE 0,132 

120 DRAU 160,132 

130 PRINT AT(65,1);"48" 

140 PRINT AT(5,23);"MH" 

150 PRINT AT(6,1);"4H” 

160 PRINT AT(6,23);"4h" 

170 PRINT AT(29,1);"K4" 

180 PRINT AT(29,23);"H4" 

190 PRINT AT(30,1); "4" | 
200 PRINT AT(39,23);"Hh" 

210 MOVE 0,117 

220 DRAW 160,117 

230 MOVE 0,35 

240 DRAW 160,35 

250 MOVE 0,20 

260 DRAW 160,20 

270 MOVE 0,2 

280 DRAU 160,9 

290 PRINT AT(7,7);"Whhhhhnhtht" 
300 PRINT AT(8,7); "ttthhtthtitnt" 
310 PRINT AT(9,7); "Wbhhhhnnhin” 
320 PRINT AT(26,7); "hihi" 
330 PRINT AT(27,7); "HRWHhIt th” 
340 PRINT AT(28,7); "bt" 
350 MOVE 0,100 

360 DRAU 160,100 

370 MOVE 0,50 

380 DRAU 160,50 

390 MOVE 0,75 

400 DRAU 25,75 

410 MOVE 128,75 

120 DRAU 160,75 

430 MOVE 17,0 

440 DRAU 17,140 

450 MOVE 25,0 

460 DRAU 25,140 

470 MOVE 128,0 

480 DRAW 128,140 

490 MOVE 137,0 

S00 DRAW 137,140 

$10 PRINT AT(14,6);"1""H5$787(0)x+,./" 
S20 PRINT AŢ(16,5); "0123456789:;€=)2* 
530 PRINT Ar(18,5); "ABCDEFGHI JKLMNOP* 
940 PRINT AT(20,5); "RSTUVUZ LN]*" 
550 MOVE 41,0 

560 DRAW 41,50 

570 MOVE 41,100 

S80 DRAW 41,140 

590 MOVE 107,0 

600 DRAU 107,50 

610 MOVE 107,100 

620 DRAW 107,140 

630 REM "STOP" 

640 60T0639 - 

850 ENDe 


13.28. Ceas electronic 


Programul solicită prin dialog ora exactă, după care afișează imaginea 
unui ceas cu arătătoarele în mișcare. În dreapta-jos a ecranului se afişează 
şi ora sub forma HHMM. Reglajul avansului se face în linia 250 din program. 
Constanta T are valoarea de aprox. 11 000, o valoare mai mare ducînd la “întîr- 
zierea“ ceasului. 
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Lo 


10 PRINT "CEASU 
DATI ORA DE PORNIRE * 


20 PRINT 
30 INPUT 
40 PRINT 
SO INPUT M 

60 INITP 

7O PRINT AT(6,13);*m* 

80 PRINT AT(16,21);*x% 

90 PRINT AT(26,13);“x* 

100 PRINT AT(16,5); “ue 

110 MOVE s52,52 

120 6 = (M*PI/30) 

130 DRAU 52+30*SIN(G),52*30xC0S(6) 
140 MOVE 52,52 

150 G = (H1+M/60)x*P1/6 

160 DRAU 52+30x*SIN(G),52+30xC0S(G) 
170 PRINT AT(30,24);H;":";M 

180 M = M+1 

190 IF M = 60 THEN 210 

200 G0To 250 


2 e = 


MINUTUL * 


210 H=0 

220 H = Hei 

230 IF H <> 24 THEN 250 
240 H=0 


250 T = 11000 

260 FOR 1 = 1 T0 7 
27C NEXT 1 

280 G0T0 60 

290 END 


13.29. Anagrame 


Programul solieită introducerea unui şir de max. 20 de caractere, afișînd 
apoi combinaţii aleatoare ale șirului. 

Cuvîntul se introduce în variabila șir AŞ, iar lungimea şirului în N, 
În masivul A (N) se aleg aleator cifre între 1 şi N care determină litera a A (I)-a 
din cuvînt. După completarea lui A (N) se afişează literele cuvîntului în ordinea 
din A (N). După afișare se reia ciclul. Programul se continuă pînă la oprire cu 
ETRI-/C, după care se poate relansa cu alt cuvînt (şir). 


k-] REM "A NAGRAtA" 
10  DIH A$(30) 
20 PRINT * DATI UN CUVINT » 
30 INPUT A$(TO»> 
40 N=0 
SO FOR 1 = 1 710 20 
60 IF AS(ITOL) 2 * “ THBN 80 
70 N = Wet 
So NEXT 1 
90 DIN A? 
100 FOR 1 =1T07 
130 A(£) = INT(RNB(XDaN +1 
140 U =.0 
150 FOR JI = 1 TO 24 
160 IF (JP <> A(Ze TNEN 180 
170 y =] 
180 NEXT 4 
190 4F U <9 0 THEN 130 
200 NEXT 2 
216 n lua ba 
220 FOR 8 =1 Ten 
230 B$ = B6+A(A(8)) 
240 NEXT 8 
230 PRINT as 
260 NEXT X 
270 GOTO 100 
[2] 
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13.30. Bugetul cheltuielilor zilnice într-o familie 


Programul solicită introducerea cheltuielilor efectuate pe zile ; noile 
cheltuieli se introduc după ultima zi completată într-o rulare anterioară. La 
cerere, se afișează totalul cheltuielilor și histograma cheltuielilor pe zile. 

Dacă se introduc cheltuielile pentru primele zile se lansează programul 
cu RUN. Pentru completare de cheltuieli se lansează cu GOTO 20. Histograma 
cheltuielilor se dă la cerere. 


10 DM Ata) 
121 


20 PRINT " CITE ZILE INTRODUCETI? * 
25 INPUT N 

30 FOR J =1T0N 

40 INPUT A(l) 

so 1 = 1+1 

60 NEXT J 

70 PRINT ” VRETI HISTOGRAHA DA/NU * 
80 INPUT 0% . 

90 IF D$ <> "DA" THEN31O 

Ati) 


C-A(J) 


180 INITP 

190 PRINT AT(1,1);” HISTOGRAMA CHELTUIELILOR * 
195 PRINT AȚ(2,1):;" PB *;1;* ZILG * 

200 PRINT AT(3,1)," TOTAL CHELTUIELI ";T 
210 UINDOU -10,110.-10,110 

220 MOVE 0,-10 

230 DRAU 0,100 

240 MOVE -10,0 

250 DRAu 190,0 

260 FOR] = 1 T0 1 

270 A(J) = 100mAt J»/cC 

230 MOVE J+3,0 

290 DRAU J*3,At(J) 

300 NEXT J 

310 STOP 

320 END 


13.31. Microfişier 


Programul permite crearea și exploatarea unei microbaze de date generată 
sub forma unui tabel de articole. Fiecare articol poate conține mai multe cîm- 
puri de lungimi diferite. 

La creare se defineşte baza de date, prin următorii parametri : 

— nume ; 

— număr maxim de articole (max. 254); 

— număr cîmpuri/articol; E 

— denumirile şi lungimile fiecărui cîmp. 

În funcţie de parametrii dați, se dimensionează tabelul ce va conține baza 
de date. Se verifică dublele definiţii pentru numele asociate cîmpurilor. 

Exploatarea bazei de date se execută cu ajutorul următoarelor comenzi : 


a) introducere articol — se caută o linie (articol) vidă din tabel şi se in- 
troduc valorile asociate fiecărui cîmp din articol. Introducerea unui articol 
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se execută prin afișarea numelui fiecărui cîmp și introducerea conținutului 
cîmpului de către operator. 

Dacă numai există loc pentru un nou articol (tabel plin) se emite mesajul 
FIȘIER PLIN, după care se poate utiliza comanda de ştergere articol și intro- 
ducerea celui solicitat. 

b) ştergere articole după conţinut — se şterg articolele care conţin infor- 
maţii identice într-un cîmp dat. Se solicită denumirea cîmpului şi conţinutul 
său. Se caută fiecare articol care conţine în cîmpul respectiv informaţia dată 
şi se șterge articolul respectiv. 


c) listare articole — se listează articolele din cadrul fişierului. 
4) modificare cîmpuri după conţinut — se solicită numele cîmpului, 
vechiul conţinut şi noul conţinut. Se listează fiecare articol ce conține cîmpul 


cu informaţia identică cu „conţinut vechi“ şi se întreabă operatorul dacă 
doreşte sau nu modificarea articolului. 


i PRINTI WI CROPISIER* 
10 1F P <> O THEN 215 


15  REH * SE CREEAZA FISIER NOU “ 295 sn» -2 

20 PRINT * DATI NUME FISIER * 300 L = L+i 

25 INPUT PS 305 PRINT * MAI INTRODUCETI (DA=t) 

30 P-i 310 INPUT Cc 

35 PRINT » DATI NUMAR MAXIM ARTICOLE * 315 IF C = 1 THEN 245 

40 INPUT T 320 GOTO 165 

45 PRINT * DATI NUMAR CIMPURI/ARTICOL * 325 PRINT * SE LUCREAZA CU FISIERUL *.P$ 
So INPUT N 330 REM * STERGERE ARTICOLE DUPA CONTINUT" 
SS DIM CS(N,10),L(N),S(T),5$(3,10),X$t10) 335 PRINT * DATI NUME SI CONTINUT CIMP * 
60 HAT S = ZER 340 PRINT " DUPA CARE SE STERG ARTICOLELE” 
65 PRINT * DATI DENUMIRE SI LUNGIME CIMP * 345 INPUT S$(1,10) 

70 2-0 350 INPUT S8(2,10) 

75 FOR I=1 TON 355 GOSUB 1000 

80 INPUT C4(1,10) 360 IF 1 < O THEN 165 

95 INPUT LI) 365 D=1 

90 D= DeLiI) 370 GOSUB 1100 

95 NEXT I 375 IF D > T THEN 165 

100 n: 380 st(D) =0 

105 FOR | = 1! TO N-l 385 L = L-1 

115 X9 = Csi) 390 GOTO 370 

120 FOR C = 1+1 TON 395 PRINT * SE LUCREAZA CU FISIERUL “;P9 
125 1F X% <> CS(C) THEN 135 400 REM * LISTARE FISIER * 

130 D= -1 405 FOR 1 = 1 TON 

135 NEXT C 410 PRINT Cs(1);",* 

140 NEXT | 415 NEXT 1 

145 IE D = 1 THEN 160 420 PRINT 

150 PRINT * CIMPURI CU ACELASI NUME * 425 FOR 1 = 1T0T 

155 STOP 430 IF S(1) = 0 THEN 440 

160 L-0 435 GOSUB 1200 

165 PRINT " INTRODUCETI COMANDA “ 440 NEXT 1 

170 PRINT * 1 = INTRODUCERE ARTICOL * 445 GOTO 165 

175 PRINT * 2 = STERGERE ART. DUPA CONTINUT * 450 PRINT * SE LUCREAZA CU FISIERUL *;P9 
180 PRINT * 3 = LISTARE ARTICOLE * AS5S REM * HODIF.CIMPURI DUPA CONTINUT” 
185 PRINT " 4 = MODIF.CIMPURI DUPA CONTINUT * 460 PRINT " DATI NUHE CIWP SI CONTINUT 
190 PRINT " 5 = LISTARE PT. MODIFICARI *. 465 PRINT * VECHI SI NOU": 

195 PRINT * 6 = TERMINARE SESIUNE * 470 INPUT S$(1,10) 

200 INPUT c€ 475 INPUT S$(2,10) 

205 ON € GOTO 215,325,395,450,540,155 480 INPUT Ss$(3,10) 

210 6070 165 485 GOSUB. 1000 

215 PRINT * SE LUCREAZA CU FISIERUL *P$ 490 1F 1 < 1 THEN 165 

220 REM * INTRODUCERE ARTICOLE * 495 D=1 

225 IF L < T THEN 240 500 GOSUB 1100 

230 PRINT " FISIER PLIN * 510 1F D > T THEN 165 

235 GOTO 165 512 GOSUB 1200 

240 D=1 S$15 PRINT * SE MODIFICA (DA=I1» 

245 1F D > T THEN 230 S$20 INPUT € 

250 |IF S(D) = O THEN 265 S25 IF C = 1 THEN 535 

255 B = D+1 530 FS(D,A+1TOA+L(1)) = S4(3, 

260 60T0245 535 G0T0 500 

265 4 =0 540 PRINT “ SE LUCREAZA CU FISIERUL *;P* 
270 FOR 1 =1T0N S45 REH " LIGTARE FISIER PT.HODIFIYARE 
275 PRINT Cs(1) i 550 D=1 

280 INPUT FS(D,A+ITOA+L(I)) 555 GOSUB 1200 

285 A = AeL) 560 IF D > T THEN W5 


290 NEXT 1 S65 GOSUB 1300 
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570 D = Dei 

575 GOTO 165 

1000 REM -* CAUTARE NUME CIMP * 
1005 1-1 

1010 A=0 

1015 IF 1 > N THEN 1040 

1020 IF C$(1) = S$(4) THEN 1050 
1025 A = A+L(1) 

1030 1 = I+1 

1035 GOTO 1015 

1040 PRINT * NU EXISTA CIMP *;Sst1) 
1045 1=-1 

1050 RETURN 

1100 REM + CAUTARE CONTINUT * 
1105 IF D > T THEN 1130 

1110 IF S(D) <> 2 THEN 1120 

1115 IF FS(D,A+1TOA+L(1)) = S$(2) THEN 1130 
1120 D = Del! 

1125 G0T0 1105 

1130 RETURN 

1200 REM " TIPARIRE ARTICOL * 
1205 B =0 

1210 FOR J =1 TON 

1215 PRINT FS$(D,B+1T0B+L(J)),",", 
1220 B = B+L(J) 

1230 NEXT J 

1235 PRINT 

1240 RETURN 

1300 REM * MODIFICAREA * 

1305 PRINT * AL CITBLEA CIMP SE MODIF 
1306 PRINT ”" O = NU SE MODIFICA * 
1310 INPUT € 

1315 IF C = O THEN 1360 

1320 PRINT * DATI CONTINUT NOU * 
1325 INPUT S$(3,10) 

1330 B = 0 

1332 IF C = 1 THEN 1305 

1335 FOR J = 1 TO C-1 

1340 B = BeL(J) 

1345 NEXT J 

1355 G0T0 1305 

1360 RETURN 

1365 END 


e) Listare articole şi modificare — se listează pe rînd fiecare articol. 
Se întreabă întreabă dacă se doreşte modificarea unuia sau mai multor cîmpuri din articol. 


“Procedura continui pînă laţstîrșitul fişierului. isi RR : 


-. .. 


13.32. Universul Conway 


Se poate studia prin aceasta creşterea, modificarea, înmulțirea şi moartea 
„celulelor lor dintr-o colonie. Viaţa celulei este influenţată de celulele înconjurătoare. 


ELI Tai început pe "0 zonă de N*M locaţii se generează celule vii conform 
coordonatelor date de utilizator. O locaţie poate avea două situaţii: conţine 
sau nu o celulă vie. Din starea inițială în baza legilor geneticii se ajunge la 
generații următoare. Starea locaţiilor în următoarea generaţie poate fi: 


1 — celula vie supraviețuiește ; 

2 — celula vie moare; 

3 — s-a generat o: nouă celulă vie. 

Cele trei stări se determină” după următourele reguli : 

1. Supravieţuieşte tiecare celulă dacă are două sau trei celule vii vecine. 


Universul lui Conway 


Fig. 13.9. Organizarea ecranului 
pentru universul lui Conway. 


S PRINT * UNIVERSUL CONMAY * 
7 PRINȚ n mona... 

10 PRINT " DATI CIMPUL * 

15 INPUT N,M 

20 IF N > 80 THEN 10 

25 1F MN > 80 THEN 10 

30 DIM UCN,M 

40 MAT 1 = ZER 

SO PRINT " CITE. CELULE VII INTRODUCETI? * 
60 INPUT € 

70 IF C €= NaM/2 THEN 100 

90 GATA SO 

100 PRINT ” DATI COORDONATELE CELULELOR VII * 
MO FOR I =1T0C 

120 INPUT X,Y 

130 1F X> N THEN 120 

140 1F Y > M THEN 120 

150 1F X < 1 THEN 120 

160 1FY< 1 THEN 120 

170 U(X,W =1 

180 NEXT 1 

185 INLIP 

190 PRINT AT(1,2);" STAREA INITIALA ” 
195 GOTO 220 

200 INITP 

210 PRINT AT(1,2);" GENERATIA URMATOARE * 
220 FOR 1 = 1 TON 

230 PRINT AT(1+2,1)4 

240 FOR J=1 TOM 

230 IF Ut1,y) = 0 THEN 280 

260 PRINT “k"; 

270 GOTO 290 

280 PRINT * “ 


290 NEXT 
300 NEXT 1 

ASR E i 

QFORJ= 1 TON 
320 c=o 
530 k=1-+1 
40 IF k <= M THEN 360 
350 K=mM 
560 La ]-i 
370 IF L >= 1 THEN 590 
380 L=i 
390 FOR X=L TOK 
400 0=y+1 
610 IF Q <a N THEN 630 
620 0=N 
630 P=y-1 
440 IF P >= 1 THEN 660 
6850 P=i 


660 FOR Y =PTOQ 
670 IF -INT( U(Y,X9/2) a U(YeK)/2 THEN 670 
+1 


710 8=0 

720 IF INT( U(J,1972) = Vi, 1878 THEN 740 
73 D= 

740 C=C-o0 

750 IF C = 3 THEN 810 
760 IF C <> 2 THEN 790 
77Q GOTO 830 

790 Dan+4 

800 GOTa 220 

810 p=D+2 

$20 Uty,1) =0 

30 NEXT 

SAO | =1c+ 1 

ES0 IF 1 <a M THEN S10 


ENI 
ENE a 
a E 


2000 FOR =1T0mM 

2005 FOR 1 = 1 TON 

2010 IF U(I,J) > 3 THEN 2025 
2015 IF U(I,J) > 1 THEN 2035 
2020 GOTO 2045 

2025 6 =o0 

2030 GOTO 2040 

2035 6=1 

2040 U(1,y) 3 

2045 NEXT 1 

2050 NEXT J 

2055 GOTO 200 

2060 END 
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2. Moare — dacă are patru sau mai multe celule vii vecine, motivul este 
suprapopulaţia, 
— dacă jare una sau nici-o celulă vie vecină,îmotivul fiind izolarea. 
[.) i 


3. Naştere — în fiecare locaţie goală se naște o celulă vie dacă are trei 
(nici mai multe nici mai puține) celule vii vecine. 


13.33. Pătratul magic 


Într-un pătrat de mărime dată se așază numere în așa fel încit pe orizon- 
tală pe verticală și în diagonală suma numerelor să fie aceeași. Există diferite 
metode de a genera pătratele magic. de diferite mărimi. 

Primul exemplu generează pătrate magice de grad impar utilizînd o gene= 
rare bazîndu-se de următorul algoritm : 


Fig. 13.10. Pătratul magic : (a) exemplu, (b) generale. 


Pe pătratul de gradul dat se desenează piramide de pătrăţele şi în diago- 
nalele astfel formate se trec cifrele în ordine crescătoare după care cifrele în 
afara pătratului se mută cu atitea poziții cit este gradul pătratului. 

Al doilea exemplu generează mai multe pătrate de gradul impar utilizînd 
următorul algoritm : 

Din şirul de numere 1,2, 3,4,5 ...pînă la gradul pătratului și 0,n, 
2*n, 3*n ... (unde n e gradul) pînă la (n—1)*n aleator se generează două 
pătrate de gradul dat sub forma : 

— se alege din primul şir un șir aleator şi se pune în primul rînd al pătra- 
tului ; 
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5 PRINT “ PATRAT MAGIC ” 

7 PRINŢ n == n 

10 PRINT “ DATI GRADUL PATRATULUL * 
20 INFUT N 

30 IFN> O THEN 70 

40 PRINT ” GRAI NEGATIV * 

50 GOTO 20 

IF INT( N/2 ) <> N/2 THEN 100 
PRINT “ GRAD FAR 

GOTO 20 

IF N <= 9 THEN 100 

PRINT * GRAD MARE * 

GATA 20 

DIM-MUN,ND 

O MAT M = ZER 

20 4 = tN+ty/a 

20 ledr+ti 

OV=i 

IF MC, = 0 THEN 210 

IF V = N"2 + 1 THEN 460 


Li 


1 
ă 
N THEN 150 
200 BOTD 310 

210 Mil, =V 

220 IF V = N"2 THEN 400 


++ 


1 
bi 
1 


> N THEN 300 
IF «d <=> N THEN 2970 


d=1 

GOT 150 

IF 9 > N THEN 220 
1=t 

GOTO 150 

1=2 

de N 

GOTO 150 

A = 130 = Nx2)/2 
A = A-3 


O FOR I = 1 TON 

SR Pe Ii 

GUSUB 300 

3 PRINT AT(B,E-1=(1-1)x3)pl” 
FOR d = TON 

Ce B+tl- Lra-t1-19*3 

26 IF MI, >= 10 THEN 420 
C=E+1 

PRINT AT(E,CO;MUI, dsr” 
NEXT 

sSAaA+.2 

SaB= A+ I1- 

&0 BOSUR 600 

PRINTI 

O STOP 

FORKkK=»0TON 

GOZUR 600 


O NEXT K 

RE TURN 

PRINT AT(B-2,B- (1-1)x93-1)3 
FOR L = 0 TO 3*N 

O PRINT "-"3 

> NEXT L 

O RETURN 

O END 


PRINT AT(B- 1, B-1+9xk-(1—10m395 0” 


— restul liniilor se completează pornind cu numărul din pătratul de după 


mijlocul linieiJşi?continuînd cu primele ; 


— din şirul al doilea de asemenea se alege o combinaţie aleatoare; 


— restul liniilor se completează din acest şir dar acnm pornind din mii- 


locul liniei. 


Adunind cele două pătrate se obține un pătrat magic: 
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Fig. 13.11. Primul pătrat. Fig. 1302. Al 
pătrat. 
10 PRINT * PATRAT MAGIC».  * 


12 PRINȚ n mmm n 

20 DIM A(59,g(5),M(5) ,N(57,045),6t:59 
30 DIM C(5,5),D(5,5),E(5,s). e 
40 MAT READ a Si 
SO MAT READ P 

GO FOR X=1T05 

70 MC) = INTURNDOD »5)-t 
S0 FOR Z=2T05 

90 Miz) = INT( RND(X) * 5) +4 
100 u=0 

110 FOR d = 1 T02 = 

120 IF M(UJ) <> M(Z) THEN 140 
130 u=u 

140 NEXT J 

150 IF U <> O THEN 90 

160 NEXT 2 

165 NEXT X 

170 FOR X =1T0$5 

180 N(1) = INTC RND(X9 » Sei 
190 FOR Z=2T05 

200 N(Z) = INTt AND(X) 35) et 
210 u=0 S 

220 FOR Ja 3 To 2-t 

230 IF N(J) 4 N(ZD THEN 250 
240 U=y9 

250 NEXT J 

260 IF U <> O THEN 200 

270NEXT 2 

280 FOR Ja s tos 

290 ALU) = O(N 

300 B(J) = P(N(U3 

310 NEXT 

315 NEXT X 

320 FOR 1 = 1 a o $ 

330 FOR J= tT05 

340 C(L,y) a Mt) 

350 D(I,yJ) = Bt 


360 NEXT 

370 Mei) = At4 
280 M(2) a A(S9 
290 M(3) = Ati3 
400 M(4) = A(2) 
410 M(5y = At3) 
420 NU) = B(3 
430 N(2) a B(4) 
410 N(3) a B(5) 
250, N(4Y a Bc4> 
460 N(5) = B(2) 


470 MAT A=M 
420 MAT BaN 


490 NEXT 1 

500 MAT EaCs0 

S10 INITP 

Ş20 PRINT APM2,2)5* PATRAT MANTA * 
S25 PRINT/ATCIL DD 3 emma 
520 k 30 

Ş40 FOR 12117993 

So Y=0 

So xXx 

S7TO FOR Je t Te S 

Şao v=v + 

SBS ex yv 

Ș9a [IF Edd > 9 THEN lo 

c00Pp = 0 3 

40 NT ADA, 

429 NEXT 

630 MEXY Î 

640 GăTO 60 


670 DATA 1,2.3.4.5 


Microcalculatorul aMIC în grafică, jocuri, aplicații diverse 


15 


doilea 


Fig. 13.13. Pătratul re- 
zultat. 


680 DATA 0,340, 13,20 
690 END 


Capitolul 14, Testarea resurselor hardware 
şi a interpretorului BASIC 


Procedura de punere la punct a microcaleulatorului urmează următoarea 
înlănțuire de faze distincte : 

— pe placheta implantată cu componente electronice nealimentată se 
verifică — ohmetric — magistrala de adrese, date, comenzi; scurtceircuite 
între alimentări (respectiv masă), cum și restul pinilor de circuite ; 

— pe placheta alimentată, dar fără circuitele ISI se verifică prezenţa 
tensiunilor, nivelul lor, cum şi modulele funcţionale, în următoarea ordine : 
prezența şi corectitudinea semnalelor delivrate de sincrogenerator, corectitu- 
dinea tastării RESET şi INI; 

— pe placheta alimentată cu circuitele ISI prezentate și cu un EPROM 
de test programat cu NOP (de la adresa (0) se verifică magistrala de 
adrese şi date; 

— se verifică corectitudinea semnalelor microprocesorului de comandă 
a memoriei, de selecţie ete. în conformitate cu diagrama de timp, înlocuind 
EPROM-ul de test cu un altul care asigură un program de scriere/citire în 
memoria RAM şi selecţia circuitelor EPROM de pe plachetă ; 

— cu EPROM-ul monitor implantat se verifică corectitudinea tastării, 
se reglează interfaţa cu receptorul TV și casetofonul audio ; 

— se tree testele hardware, se verifică comenzile de monitor şi setul de 
instrucțiuni BASIC. 


14.1. Prezentare generală a setului de programe de test 


Setul de programe realizat urmăreşte testarea logic-funcţională a modulelor 
harda microcalculatorului aMIC. 

Programul TEST aMIC are următoarele module, corespunzătoare modu- 
lelor funcţionale pe care le testează : 

R-RAM Testarea zonei de memorie RAM 

E-EPROM Testarea zonei de memorie EPROM 

D-DISPLAY Testarea afişării pe ecran 

K-TASTATURA Testarea preluării de caractere de la tastatură. 

Aceste programe pot fi executate în regim automat, ciclînd, fără inter- 
venția operatorului, sau: în regim manual în care operatorul poate selecta 
testul dorit. 
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În afară de aceste teste există proceduri de testare a interpretorului BASIC 
şi a transferului de informaţii dinspre/spre casetofon. 

Programul TEST aMIC este disponibil pe caseta magnetică, într-o va- 
riantă simplificată, sau este înscris pe EPROM. Completat cu cîteva subrutine 
modificate din monitor, formează conţinutul unei capsule 2716 de 2 Ko. Acest 
cip este amplasat în locul primului cip din EPROM-ul suport al programului 
BASIC. Programul utilizează generatorul de caractere, tabela de simboluri 
pentru tastatură şi cîteva subrutine din monitor. 

Lansarea programului TEST AMIC se face prin intermediul monitorului, 
cu comanda 


Gp 890 (CR) 

Această comandă cedează controlul monitorului de comenzi al progra- 
mului de test. După ce se face iniţializarea stivei şi a variabilelor program 
(în zona de memorie RAM 5F00H 5FFFH, corespunzătoare ultimei linii de 
caractere) se afișează mesajul : 

TEST AMIC 

MOD DE LUCRU! A SAU M. 

Apăsarea unei alte taste decit A sau M va produce menţinerea mesajului 
de mai sus. 

Următorul mesaj : 

IN 2 CIP1 SAU 2? 


cre numărul cipului de memorie EPROM plasat în poziţia 2. Această menţiune 
este necesară pentru textul EPROM, deoarece cipul care conţine TEST AMIC 
este plasat în poziţia 1. În funcţie de răspunsul la acest mesaj se va lua în con- 
siderare CHECKSUM-ul cipului 1 sau 2 la testarea poziţiei 2. din cele 5 
EPROM-uri. 


În funcţie de modul de lucru, tratarea se ramifică în continuare. 
REGIMUL AUTOMAT : Se cere: 
ORDINEA TESTELOR 


care vor fi executate în regimul AUTOMAT. 

În acest regim pot fi executate testele RAM, EPROM și DISPLAY. 

Ca răspuns la acest mesaj se introduce combinaţia dorită a testelor, per- 
nuțîndu-se şi repetarea unor teste cu condiția ca numărul total să nu depăşească 
10. Dacă succesiunea de caractere R, E şi respectiv D se termină cu C, atunci 
programul va cicla pe succesiunea de teste anterior introdusă. Comanda S inter- 
calată în succesiunea de comenzi va avea ca efect terminarea testelor şi reveni- 
rea în monitorul microcalculatorului. 

După introducerea celei de-a zecea comenzi, apare mesajul: 


ZONE RAM TEST: 


Acestea pot fi în funcţie de varianta microcalculatorului, următoarele : 
60—00; 60-C0; 60—80; 40—80, A0—00 (memoria RAM alocată DISPLAY- 
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ului poate fi în zona 40—60 sau 80—A0). În continuare vor fi executate testele 
înscrise în listă, în aceiași ordine. Dacă în lista testelor nu figurează comanda 
€ atunci, după execuţie, se trece controlul monitorului de bază. 


Regimul manual : 


Pe ecran apare mesajul: 

SIMBOL TEST ; așteptindu-se una dintre comenzile R,E, D sau K, 
care să lanseze programul test corespunzător. Comanda S trece controlul moni- 
torului de bază iar orice tastă apărată reatişează mesajul de mai sus. De asemenea, 
după execuţia unui test se revine cu același mesaj (la dispoziţia operatorului). 


14.2. Comanda E — testarea zonei de memorie EPROM 


Testul se execută în mod identic în ambele regimuri de lucru. Acest test 
constă în calcularea sumei de control pentru fiecare cip de memorie EPROM-2716 
şi compararea ei cu suma corespunzătoare anterior calculată şi înscrisă într-o 
listă de „semnături“ în programul TEST aMIC. 


Programul care urmează calculează sumele de control ale celor opt cipuri 
2716 existente şi afişează valorile respective. Acest program se utilizează la 
fiecare modificare a informaţiei în memoria EPROM, valorile obținute pentru 
sumele de control trebuind să fie introduse în tabelul de „semnături“ din 
EPROM-ul de test. 


CSMART:  MVI E,90 ; Se încarcă în E nr. cipului 
ES1: MOV B,E ; de început 
CALL CSC ; Calcul suma de control a cipului respectiv 
MOV D,A ; Se încarcă în D suma de control 
CALL CRLF ; Se afișează nr. cipului 
MOV A,B 
CALL BINASC 
CALL AF20H ; Se afișează suma de control 
MOV A,D 
CALL BINASC 
INR E ; Increment nr. cipului 
CALL KEYIN ; Aşteaptă comanda continuă” 
CPI 43 
JZ CS1 
JMP MONIT. 


Subrutina CSC calculează suma de control a cipului adresat 
Intrare : B ='nr. cipului adresat 


leşire: A = suma;de control 
CSC: PUSH B 
MOV A,B ; calculul adresei de început 
RLC 
RLC 
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MOV H, A ; (H, L) conţine adresa de început a cipului 
MVI L,99 
ADI 98 
MOV B,A ; B conţine adresa H de sfirșit a cipului 
XRAŞA 
CSC1: ADD M ; calculul sumei de control 
MOV C,A 
INX H 
MOV A,H 
CMP B 
MOV A,C 
INZ CSC1 
POP B 
RET 


Deoarece cipul care conţine programele de test reamplasează în poziţia 1 
(primul cipyde BASIC), cipurile 1 şi 2 se testează pe rind, amplasîndu-se în po- 
ziţia 2. Eventualele erori care apar se afişează sub forma : număr cip, sumă 
de control din tabel (martor), sumă de control calculată şi o tratare a cauzei 
apariției erorii respective. 

Pentru testarea logicii de citire a memoriei EPROM se face, citirea şi 
calculul repetat al sumei de control pentru cipul care conține monitorul. O 
primă măsură care se poate lua în cazul apariţiei de erori este mișcarea cipuri- 
lor; în soclu, după care se va executa din nou testul EPROM în regim manual. 


14.3. Comanda K — testarea preluării de caractere de la tastatură 


Deoarece în cadrul acestui test este necesară intervenţia operatorului, 
testul se execută doar în regim manual. După afişarea mesajului de 
start test se așteaptă acționarea unei taste. Caracterul activat va fi pe o linie 
sau pe tot ecranul, funcţie de comanda precedentă. 

CTRI--L — rămîne memorată și este activată prin start test. Caracterul 
corespunzător tastei apăsate va fi afişat pe o linie, apăsarea tastei DEL are ca 
efect ştergerea ultimului rînd, iar tasta BS repetă ultimul caracter tastat. 

CTRI.-C — rămîne memorată pînă la acţionarea CTRL-L și implică 
afişarea caracterului selectat pe întregul ecran. Tasta DEL şterge ecranul, 
iar tastele BS și BLANK au acelaşi efect ca în regimul CTRL-L. 

În ambele regimuri, acţionarea tastei CR transferă controlul monitorului 
TEST aMIC. Testul se bazează pe observaţiile operatorului. Se poate utiliza 
testul, prin menținerea pe ecran a caracterului H sau a caracterelor semigratice 
pentru reglarea calității imaginii ecranului monitorului (dimensiunile rastrului, 
liniarizate, focalizare, afișare video-invers stabilă). 


14.4. Comanda D — testarea afișării pe ecran 


Acest test verifică funcționarea circuitelor de ceas și formatoare a semna- 
lului video-complex, cît şi a memoriei RAM din zona 4000-5FFFH rezervată 
afişării. 
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În primele 2 faze se afişează pe întregul ecran „table de șah“ avînd dimen- 
siunea pătratului elementar de una, respectiv patru, linii TV. Prima reţea se 
realizează prin înscrierea în RAM a octeţilor AAH şi, respectiv, 55H iar a doua 
prin afişarea caracterelor semigrafice avind codurile 68H și, respectiv, GEH. 

După durate egale de timp imaginile sînt negativate, ceea ce se realizează 
prin complementarea informaţiei din RAM. Eventualele erori de înscriere 
în RAM la complementarea informației sînt sesizate uşor pe DISPLAY de 
către operator. O caracteristică a „tablei de şah“ este egalitatea între nivelul 
de alb și de negru din imagine. Pentru testarea modulatorului s-au realizat 
succesiuni de imagini care conțin cantități diferite de alb și de negru. 

Astfel, în a treia fază se afişează pătrățelele negre pe fond alb, utilizînd 
caracterele semigrafice (dimensiunea pătratului fiind de 8 linii TV), iar în 
a patra lază ecranul este șters (nivelul maxim de negru). Complementînd suc- 
cesiv aceste imagini, nivelul de alb comută între 25% şi 75% în primul caz 
și între 0% şi 100% în al doilea caz. Pentru a obţine stabilitatea imaginilor 
se fac reglaje asupra modulatorului, prin modificarea punctelor de funcțio- 
nare a etajului modulator și modificarea raportului între semnalele de sincroni- 
zare şi cel de imagine care concură la realizarea semnalului video-complex 
(SVC). 

Pentru a testa adresarea intercalată a memoriei RAM-DISPLAY se afi- 
şează benzi verticale de contrast, de grosime echivalentă cu 8 linii TV. Benzile 
se afişează de la stînga la dreapta şi succesiv imaginea este complementată. 

Pentru tastarea îndelungată a funcţionării microcalculatorului, cu afi- 
şarea pe ecran, S-au realizat programe în limbaj mașină sau BASIC de trasare 
a unor figuri geometrice (pătrate și romburi înscrise, cercuri concentrice sau 
spirale). În continuare vor fi prezentate cîteva subprograme folosite pentru 
trasarea de figuri geometrice. 

Considerîndu-se ecranul TV ca un pătrat cu latura de 256 linii TV și 
notînd axa orizontală cu Ox iar cea verticală cu Oy, subprogramele testează, 
setează sau şterg orice punct TV de coordonate A (X, Y). 


Fig. 14.1. Ecranul TV. 


Subrutina ADR precizează poziţia bitului în memoria RAM-DISPLAY, 
corespunzător punctului A (X, Y). 
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Ca intrări se dau în registrele B şi C respectiv coordonatele X și Y iar ca 
ieşiri se primeşte în registrul HI, — adresa octetului și în acumulator poziția 
bitului căutat, codificată binar. Cunoscînd poziţia bitului în memoria RAM 
se pot opera asupra lui diferite acţiuni: 


testare (TESTP), ştergere (RESETP) şi punere pe „1“ (SETP) 


ADRI PUSH DE ; Salvarea registrelor BC și DE 
PUSH BC 
LD HL,3FEDH ; Adresa început zonă RAM-DISPLAY 
LD DE,0020H minus 20H 
INC C ; DE= numărul de octeți corespunzător unei linii TV 
Ali ADD HL, DE 
DEC C 
IP NZ, Al ; HL= adresa primului octet din rîndul TV căutat 
DEC HL. 
A21 INC HL 
LD A,B 
SUB A,08H 
LD B,A 
JP NC A2 ; HL conţine adresa octetului căutat 
ADD A,MH; ; A= conţine nr. de ordine a bitului căutat în octet 
LD C.A 
INC C 
SCF FR op de fă da 
XOR A ; A=00; 
A31 RILA 
DEC C Hi 
JR NZ,A3 ; A= conţine un singur ''1”” în poziţia corespunzătoare 
POP BC bitului căutat 
POP DE 
RET 
SETP! CALL ADR ; Punerea pe ''1 
OR (HL) 
LD (HL),A 
RET 
RESETP:; CALL ADR ; Ștergerea bitului adresat de registrele B și C 
CPL 
AND (HL) 
LD (HL)A 
RET 
TESP: CALL ADR ; Testează bitul adresat 
AND (HL) ; Dacă este zero, flagul Z se poziţionează pe 1. 
RET 


[i 


"a bitului adresat de registrele B și C. 


14.5. Comanda R — Testarea zonei de memorie RAM 


14.5.1. Deserierea modurilor de lucru ale programului. După lansare calcu- 
latorul afișează mesajul : 


TEST RAM 


SWITCH : cerîndu-se 2 octeți pentru precizarea modului de lucru. În 
regim automat cei doi octeți care reprezintă SWITH SOFT vor fi înscrişi 
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automat cu valorile : SWC1=01 ; SWC2=22 şi vor fi tipăriţi pe ecran. În regimul 
MANUAL vor îi preluaţi de la tastatură, biții lor avînd următoarea semni- 
ficaţie : 


BITO —g— 

1 execută și testul complementar (subtestul adresare) 
BITI —p— 

i Oprire la eroare ! continuă cu comanda Z. 
BIT2 —9— 


1 Ciclează pe locaţia unde a apărut o eroare în textul SCCII 
BIT3 —p— (BIT 10 inetectiv) 

1-— Inhibă tipărirea erorilor 
BITA —p— 

1— Ciclu pe subtestul definit de biții 6,7 
BIT5 —g— 

1— Imhibă tipărirea listei de erori după fiecare execuţie a subtestului. 
BIT6,7 — Cod subtest 
BIT8 —g— Serie la începutui îiecărui subtest numărul corespunzător. 

—1 Oprire după fiecare subtest. 


BIT9 —g 
—1  Imhibă execuţia testului GALPAT 
BIT10 —g 
—1 Tipăreşte numai prima eroare din modul cînd BIT3=t. 
BITI1 —9 
—1 Execută subtestul PING PONG de 25 de ori 
BITi12 —g 
—1 Imhibă tipărirea lui, END PASS **' 
BIT13 —0 


—1  Inhibă ciclul pe execuţia testului RAM 


Deci testul automat este caracterizat de următoarele : 

— execuţia nu se opreşte la apariţia unei erori; 

— execuiă subtestele în ordinea crescătoare a codului ; 

— tipăreşte erorile şi lista de erori ; 

— inhibă erorile şi lista de erori ; 

— inhibă subtestul GALPAT ; 

— execută subtestul PING PONG o singură dată; 

— inhibă ciclul pe execuţia testului RAM 

Cei 14 biţi se introduc după mesajul 'SWITCH :' (în regimul MANUAL) 
sub forma a 4 cifre hexa, astfel: 


Ala BIT14 BIT13 bc BITI1  BIT10 BII9 că băi 
SWITCH 
BIȚI BIT6 BIT5 BIŢA BIT3 BIT2 BITI i: 


SWITCH 
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Ordinea de introducere este: 
SWC2 (CR) SWC1 (CR). 
Codificarea și ordinea de execuție în regim AUTOMAT sint următoarei 


00— Aresare (ADR) 
01— Scriere-citire (SCCIT) 
p2— PING PONG 

p3— GALPAT 


14.5.1. Deserierea modurilor de lucru ale programului roșu 


Testul adresare : (ADR) constă în scrierea succesivă în pagini de memorie 
de cite 256 de octeți a unui contor cu valoarea 0-FFH. La începutul fiecărei 
pagini contorul este dublu incrementat asttel încît se poate identifica ușor 
fiecare pagină de memorie. Informaţia "scrisă arată asttel: 


C000 09 01 02 ....FF 
C100 01 2 03 ....FE 
C200 02 03 04 ....FD 


- 


Testul se aplică pe zone compacte de memorie. 


Facultativ se poate repeta testul, inversînd la scriere în memvrie cei doi 
cuarteți ai contorului. 


Testul scriere-citire (SCCIT) detectează biții de memorie blocaţi la zero/unu. 

Se scrie succesiv în fiecare locaţie configuraţia inițială (de exemplu AA), 
apoi complementul ei și din nou configurația iniţială, verificîndu-se de fiecare 
dată corectitudinea operaţiei. Se aplică pe zone compacte de memorie. 

Testele PING PONG și GALPAT operează la nivel de modul de 16 Ko 
(0, 4000H, 8000H, C00DH). Aceste teste necesită o subrutină (SGP) care deli- 
mitează din zona compactă de memorie RAM limitele modulului de testat 
(ADINEF respectiv ADSUP). 


Testul GALPAT : detectează defecte de adresare, selecție multiplă, 
timp de acces. După ce se serie în modul configuraţia inițială, se parcurge 
succesiv fiecare locaţie : se scrie în ea configurația complementară și se verifică 
toate locaţiile modulului. Fiecare verificare este urmată de o verificare a loca- 
ţiei curente. La sfîrşit se reface locaţia curentă. Se repetă testul pentru contigu- 
rația complementară. Întrucît operarea cu fiecare locaţie implică verificarea 
întregului modul, testul durează de ordinul a cîtorva ore. 


Testul PING-PONG : este asemănător cu testul GALPAT, dar optimizat 
ca durată. După ce modulul de memorie este înscris cu configurația inițială 
se parcurge succesiv fiecare locaţie înscriindu-se cu configurația complementară. 
Pentru fiecare locaţie curentă se verilică 14 locaţii, fiecare verificare fiind 
urmată de verificarea locației curente. Adresele acestor locaţii se obțin pornind 
de la adresa locației curente, prin complementarea cite unui bit de adresă. 


Comanda R — testarea zonei de memorie RAM 


În continuare se prezintă programul care execută acest test. Subrutina 
SGP apelată anterior a pregătit adresele limită (ADINF, ADSVP) pentru 
modulele testabile. 


PING PONG: 
Pl 


P21: 


P7: 
pP8! 


P3: 


P4: 


P5: 


CAL INIT 
CALL CYBR 
LDA ADINF 
MOV D.A 
MVI E,00 
LDAX D 
XRA B 

IZ P21 
PUSH B 
PUSH D 
CALL RWERR 
POP D 

POP B 
MOV AC 
STAX D 
LDA ADINF 
CPI A0 

IZ P7 

M VI H„A5H 
IMP P8 
MVI H,14 
MOV A,H 
SUI 09H 
STA PNG 
MVI L,80 
PUSH H. 
MOV H,D 
MOV L,E: 
XT HL 
DCRH 

IZ P6 

MOV AL 


IZ P9 
PUSH B 
PUSH D 


CALL RWERR. 


; înițializare 
; copiază cuvint iniţial între (ADINF, ADSUP) 


; (D,E) — adresa cuvîntului test 


; Se verifică dacă la adresarea cuvîntului de test s-a 
înscris configuraţia inițială. 


; subrutina de contorizare și tratare a erorilor 


; Se înscrie în locaţia test configuraţia complementară 


; Se stabilește numărul de biţi care vor fi compleman- 
taţi din adresa cuvîntului test (pentru un modul întreg 
se complementează 14 biţi) 


; L — masca pentru complementarea unui bit din 
adresă 


Adresa cuvîntului test în stivă iar în H şi L contorul 
și masca pentru complementare. 


masca devine L=01H 


Masca și contorul în stivă 
salt dacă PNG>contor de biţi 


; complementarea bitului din L 


complementarea bitului din H 


; Adresa sfîrșit RAM 


; salt dacă H> HMAX. 


; locaţia derivată se compară cu configurația inițială. 
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POP D 
POP B 

P9: LDAX D ; se compară cuvintul test cu configuraţia complementată 
XRA C 
JZ P3 ; dacă nu este eroare salt la complementarea următorului 
PUSH B hit de adresă 
PUSH D 


MOV B,C 
GALL RWERR 
POP D 

POP B 

IMP P3 


P6 POP H ; S-a terminat un cilu de verificare 
MOV A,B 


STAX D ; Rescriere cuvint iniţial la adresa 

INX D cuvîntului de test 

LDA ADSUP 

CMP D 

INZ P2 ; Dacă adresa următoarez ADSUP se închide bucla 
MOV A,B ku externă 

MOV B,C ; schimbă cuvîntul iniţial cu cuplementarul său 
MOV CA 

LDA VARPRI R 

XRI 29 ; Se testează și modificăjITEST 

STA VARPRI 

ANI 29 ; Dacă INTEST=1 se execută testul și pentru configu- 
INZ P1 raţia complementară 


RET 


14.5.2. Organizarea testului RAM. În figura 14.2 este reprezentată sche= 
matic organigrama testului RAM. După iniţializări şi mesaje de început test, 
se cere precizarea octeţilor SWC2, SWC1 în regimul manual, iar în regimul 
automat ei sînt afișaţi, fiind determinaţi interior. 

În regimul automat zonele de test RAM au fost precizate la intrarea în 
programul TEST aMIC. În funcţie de SWC4, se execută testele în ordinea 
crescătoare a codurilor sau se ciclează pe testul dat de SWC67. 

Codul testului curent este memorat şi, pe baza lui, se crează adresa de 
salt la subtest şi codul eventualelor erori. Dacă SWC8=(0 atunci la începerea 
unui subtest se afişează codul subtestului curent, informird prin aceasta că 
testul anterior s-a terminat (în acest regim programul ru se opreşte după 
subtest). După execuţia subtestului, dacă SWC8=1 se dă mesaj: END** și 
se pune la dispoziţia operatorului. Comanda CIRL-G va executa listarea 
erorilor şi predă controlul monitorului TEST aMIC. Dacă SWC5=1 se îmbibă 
listarea erorilor și continuă testul. In cazul în care subtestul terminat a fost 
GALPAT, se afișează sau nu END PASS**—funcţie de SWCI2. Afişarea este 
utilă în cazul în care se ciclează pe testul RAM. Bitul SWCI1 decide dacă 
subtestul PING PONG se face o singură dată sau de 25 de ori. Se observă 
din organigramă complexitatea regimurilor de lucru a programului TEST RAM. 
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a —— 


MESAJ: 
»TEST RAM * 
SWITCH: 


Se introduc octeții 
SWC 2, SWC1de la 
tastatură . 


Cere: 
ZONE TESI RAM 


e - 
Chu pe testul 
NU dat de SWC 67 
Se incepe cu Sa formează m. 
testul .O testului 


1 Memorează codul 
E testului 
Creează adresa de 
salt ia testul curent 


; DA 
Oprire după 
te 
N 
TEST a 2 


Sait la subtest 
Executa subtestuliui 


ENDTESŢ 


Fig. 14.2. Organigrama testului RAM. 
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Semnificaţia comenzilor pe parcursul testului este următoarea : 
GTRI„Z — repornire după subtest sau după oprire la eroare; 
GTRI.-G — tipăreşte lista de erori la sfîrşitul subtestului curent în regim 
manual ; 
GTRL-G — oprire TEST RAM după subtestul curent. 


14.5.3. Modul de tratare a erorilor. Codul erorilor apărute în cursul tes- 
telor (ERR) indică în care subtest a apărut acea eroare : 


01 — Eroare de R/W în testul de adresare (probabil pinii de adresă defecți) 
02 — Eroare de R/W în testul SCRIE-CITEȘTE 

03 — Eroare de R/W în testul PING-PONG 

04 — Eroare de R/W în testul GAIPAT 


Prelucrarea , cantorizarea 
erorii 


Fig. 14.3. Organigrama 
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ENDTE ST 
> 


MESAJ: 
END ** 


CTRL=G 
LISTAREA LISTAREA 
ERORILOR ERORILOR 
MESAJ: 
END RAM MESAJ 


CONT. LA CTRL-Z 


NI 


LISTAREA 


4 
, MONITOR 


TEST KEYIN 
Continuă subtestul a. 3 
dat de SWC 5,6 DA 
(aie 


INCREMENT NU 
COD TEST 


Le 
NU MESAJ: 
END PASSn* 


DA — 


0 
Cicleaza test 


pentru RAM 
“4 MONITOR 
TEST 


Contor 
exec test 


NU 
(9) CONTINUA 
PING PONG 


testării erorilor < 2. 
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Mesajul tipărit la apariţia unei erori are următoarea semnificaţie i 


ERR 1 — Codul erorii apărute 

RDATA : — Data citită 

WDATA : — Data scrisă 

PC: — Valoarea PC la apelul rutinei de eroare 
ADR1 Adresa de memorie unde a apărut eroarea 
MODUL 1 Numărul modulului 


Fiecare modul de memorie RAM (16K) are o zonă contoare distinctă, 
cuprinzînd : 

— un octet în care este înscris numărul modulului ; 

— 8 contoare pentru erorile de R/W, cite unulipentru fiecare bit; 

— un octet „depăşire, indicînd biţi pentru care numărul de erori > 256. 

Fiecare contor ocupă un octet, deci pot ti memorate distinct 256 erori. 
Pentru un număr mai mare de erori se afișează caracterul '* în dreapta ecra- 
nului respectiv. Memoria RAM utilizată pentru DISPLAY nu este testată 
de către acest program, deoarece ea, este testată în cadrul testului DISPLAY. 
"în tigura 14.3 este prezentată organigrama de tratare a erorilor şi de 
oprire la eroare. 

După contorizarea erorii şi completarea buiferului de afişare, este testat 
bitul SWC3 care dacă este poziţionat pe „1“ permite afişarea erorii. Dacă bitul 
SWC10=“1“, eroarea va fi afişată numai dacă este la prima apariţie. Înainte 
de afişarea erorii, variabila FTRST este anulată. 

În funcţie de valoarea bitului SWC1, programul de testare va fi oprit 
sau nu. Subtestul SCRIERE-GITIRE permite buclarea pe locaţia eronată, 
dacă valoarea bitului SGW2=“1“. După retestarea locației, programul aşteaptă 
comandă de la operator. Dacă aceasta este CTRI--Z, testarea locației eronate 
este reluată. 

Pentru celelalte subteste și pentru subtestul SCCIT cu bitul SGW2=50, 


se va afișa mesajul 
STOP, ER.. 


după care se pune la dispoziția operatorului. Se poate continua textul cu co- 
manda CTRI--Z, încheind sub rutina de tratare a erorilor. 


14.6. Testarea transferului de informaţii dinspre/spre casetofon 


Pentru faza de punere la punct a interfeței cu casetofonul se comandă 
înregistrări cu informație constantă OH, FFH și apoi AAH urmărindu-se cu 
osciloscopul forma și nivelul semnalului la intrarea în casetoton. La fel se urmă- 
reşte și redarea semnalului la intrarea în interfața programabilă internă. După 
ce se fixează nivelul optim al volumului la înregistrare şi redare, se fac înre- 
gistrări lungi (pînă la 44 Kocteţi), cu informație constantă sau aleatoare, sau 
cu blocuri de date în care fiecare octet este identic cu octetul mai puţin semnifi- 
eativ de adresă, corespunzător. Se execută de citeva ori Încărcarea acestor 
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fișiere în memoria calculatorului şi se verifică încărcarea atit prin suma de 
control a fişierului cît și prin programe de verificare a conţinutului fişierului 
îneărcat. Aceleași încercări se fac şi sub controlul interpretorului BASIG, cu 
ajutorul instrucţiunilor I:O0AD şi SAVE. 


14.7. Procedura de test a interpretorului BASIC 


Procedura de test a interpretorului BASIG constă în reluarea unui set 
de programe în care apar toate instrucțiunile specifice acestuia. 

Aceste programe de test, scurte, trebuie alese astfel încît să solicite toate 
posibilităţile limbajului. Procedura de verificare a bunei funcţionări a interpre- 
torului BASIC 14 K, constă în rularea de programe de test scrise în limbajul 
BASIG. Aceste programe utilizează pe cît posibil cîte o instrucțiune sau o 
funcție BASIC în așa fel încît se cunoaşte aprioric rezultatul, sau domeniul 
de rezultate. După rulare se verifică prin comparare dacă s-a ajuns la rezultatul 
așteptat. 

În continuare se prezintă cîteva programe de acest tip (v. și cap. 9). 


14.7.1. Verificarea funcţiilor standard ! 


Funcţiile standard rezolvate în interpretorul BASIG sînt : sinus, cosinus, 
tangenta, arctangenta, logaritm, funcţia exponențială, radical, ridicare la putere. 
Se ştie că: 


sin x] 
COS X 


tg x= 


Se verifică dacăpentru un X dat, funcţiile BASIG satisfac această egalitate. 


19 X=0 

20 Y=TAN (X 

30 Z=SIN (X)/COS (X) 
4 PRINT Y; ; Z 
50 STOP 


Se verifică egalităţile următoare : 
sin2x+-cos2x=1 


tg (arc tg ())=x 


elnix=— 


19 FOR X=0 TO 1 

20 PRINT X, SIN (agcos (XŢ2 
30 NEXT X 

49 STOP 


19 FOR X=—10 TO 19 
20 PRINT X, TAN (ATN (X)) 
39 NEXT X 

49 STOP 
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19 FOR X=1 TO 19 
39 PRINT X, EXP (LOG (X)) 
39 NEXT X 

44 STOP 


Se calculează rădăcina pătrată dintr-un număr dat de utilizator prin 
formula interactivă : 


unde A este numărul introdus; 
Y, este o valoare arbitrară inițială 


Iteraţia se opreşte cînd (Y;41—Y:)=0. Se tipăreşte valoarea astfel obţinută. 
Be tipăreşte apoi și valoarea obținută prin funcţia BASIC de rădăcină pătrată 
(SQR) şi se compară cele două rezultate astfel obținute. 


19 REM "RADACINA PATRATA” 

20 PRINT ''DATI NUMARUL” 

39 INPUT A 

40 B=INT (AND (X)*A)+1 

50 REM "B=Y ARBITRAR ALES 
55 REM “IN FUNCTIE DE A” 

60 Y=0.5*(B+A/B) 

70 IF B=Y THEN 109 

39 B=Y 

30 GOTO 69 

100 PRINT "RADACINA PATRATA” ; 
195 PRINT “PRIN ITERATIE:” ;Y 
110 X=SQR (A) 

120 PRINT "RADACINA PATRATA” ; 
125 PRINT ''PRIN FUNCTIE SQR: “; X 
130 Z=ABS (X—Y) 

149 PRINT "DIFERENTA +” ; Z 

159 STOP 


Funcţia internă de generare numere aleatoare (RANDOM), pune la dis- 
poziția utilizatorului cîte un număr aleator în domeniul (0, 1). Se generează 
tabele de cîte 10 numere variabile în diferite domenii, înmulţind numărul 
aleator cu diferite constante şi/sau luînd valoarea întreagă cu funcția INTE GER. 


10 REM “VERIFICARE RANDOM” 

29 PRINT ''VALORI REALE ÎNTRE 0 SI 17 

30 FOR 1=1 TO 10 

49 PRINT RND (X), 

50 NEXT 1 

69 PRINT ''VALORI REALE ÎNTRE 0, 10 SI 0, 100” 
79 FOR 1=|1|T0 19 

39 PRINT END (X)*10; AND (3X)*100 

90 NEXT 1 

109 PRINT ''VALORI INTREGI INTRE 0, 10 SI 0, 109” 
119 FOR I=1 TO 10 

129 PRINT INT (AND (X)*10); INT (AND (3)*100) 
139 NEXT 1 
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149 PRINT “VALORI INTREGI INTRE 0, 6 ŞI 10, 20 
150 FOR 1=1 TO 10 

160 PRINT INT (AND (X)*6); INT (AND (X) * 10410) 
179 NEXT 1 

189 STOP 


Prin funcţia PLOT se poate aprinde un punct pe ecranul TV, considerind 
ccranul de 64*64 puncte. Se trasează curba sinus cu funcţia PLOT și se şterge 
cu funcţia UNPLOT. 


19 INIT P 
20 FOR N=1 TO 64 | 
30 PLOT N, 22+20*SIN (N/32*PI) 

49 NEXT N 

59 FOR N=1 TO 64 

60 UNPLOT N, 22+20*SIN (N/32*P1) 
70 NEXT N 

80 STOP 


Funcţia RANDOM se poate verifica şi cu funcția PLOT. Se umple ecranut 
aleator prin funcţiile RANDOM şi PILOT cu puncte aprinse. Dacă această 
variaţie aleatoare umple relativ uniform ecranul, funcţia RANDOM este 
aleatoare. 


19 INIT P ga 
20 PLOT INT (END ASE, INT (AND (X)*6441) 
30 GOTO 20 

49 EN 


Funcţia PLOT aprinde un punct pe ecran şi UNPLOT stinge punctul pe 
ecran. Se poate astfel aprinde şi stinge acelaşi punct obţinînd astiel o pulsație 
a unui punct. i 


10 INIT P7* 

20 X=RND (X) 

20 Y=RND (Y) 

40 FOR 1=1 TO 19 

30 PLOT INT (X*64)-+-1, INT (Y*64)--1 
60 UNPLOT INT (X*64)-+1, INT (Y*64)4 
70 NEXT 1 [i 

80 STOP 


Funcţia PRINT AT (X, Y) permite afișarea pe ecran, la coordonate 
date, a unei informaţii. Ecranul este văzut ca formînd 32 de linii a cite 30 de 
caractere. În instrucţiune, X este linia şi Y coloana de unde se va începe afişarea. 


PIE ERIE SIN iat 


Se afişează pe ecran un tabel de fermă “cunoscută, 


19 INIT P 
20 PRINT AT (2, 2); "TABEL CU NUMERE“; 
25 PRINT ''DE TELEFOANE” 

39 PRINT AT (3, 2); S$ 
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40 PRINT AT(6, 5); "NUME 1 PREFIX I; 
45 PRINT “NR. TEL.” 

59 PRINT AT (7, 2); S$ 

49 FOR 1=8 TO 16 STEP 2 

70 READ N $ (10) 

80 READ N 

100 PRINT AT(, 2); N$; "1';P; "1; N 
119 PRINT AT (141, 2); S$ 

120 NEXT 1 

139 STOP 

140 DATA "NUME 1”, 971, 12345 

159 DATA "NUME 2”, 90, 457321 

160 DATA ---- 


200 DATA - 
re pei AIA Mi ee ea ap ai m 0. Aer 
220 END 


Aprinderea și stingerea unei zone prin instrucția PRINT AT (X, Y) 


19 INIT P 

20 X= INT (AND. X)*64)41 
30 Y= INT (RND (Y)*64)91 
40 FOR I=i TO 29 

59) PRINT AT(X, Y); 1.” 
80 PRINT AT (X, Dir a! 
70 NEXTAI 

80 STOP 


e Caracterul care aparţine la o valoare A se obţine prin CHR$ (A). Setul 
de caractere se afișează prin următorul program. 


ip PRINT “SETUL DE CARACTERE” 
20 FOR A=0 TO 256 

39 PRINT A, CHR$ (4 

49 NEXT A 

50 STOP 


Funcţia INKEY$ permite utilizatorului să dea unei vanabile şir valoarea 
tastei apăsate. Următorul program permite utilizarea aMIC-ului ca mașină 
de scris. Apăsarea tastei RETURN poziţionează pe linie nouă. 


19 INITP 

20 AS=INKEY$ 

30 BS=INKEY$ 

40 IFŢA$=BSĂTHEN 39 

50 REM "S-A TASTAT UN_CARACTER'” 
60 PRINT B$ 

79 GOTO 28 

89 END 
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Valoarea variabilei șir se obține prin funcția VAL. 
Dacă la linia 20 schimbăm expresia și la linia 30 valoarea lui X, putem 
efectua verificări pentru diferite expresii şi valori ale lui X. 


10 PRINT "VALOAREA EXPRESIEI'] 
20 F$ ='2X4 2—X+1” 

30 FOR X=1T0 5 

49 T=VAL (FŞ ) 

50 PRINT "EXPRESIA :" isi 

60 PRINT PENTRU X=” : 

70 PRINT "'ARE piei Aa a”; 

80 NEXT X 

929 STOP 


Se permit în Interpretorul BASIG trei bucle suprapuse. În următorul 
program există trei bucle K, J şi I. Totodată se lucrează cu instrucţiuni matriciale. 


19 PRINT ''ORDONAREA UNUI SIR” 
20 READ N 

30 DIM A (N) 

49 MAT READ A 

50 FOR 1=1 TO N—1 

69 FOR J=I+1 TON 

70 IF A(D<A () THEN 130 

80 B=A () 

99 FOR K=J TO I+1 STEP —i 
100 A (K)=A (K—1) 

119 NEXT K 

120 A (D=B 

130 NEXT J 

140 NEXT 1 

150 PRINT “ŞIRUL ORDONAT” 
160 MAT PRINT A 

170 STOP 

180 DATA 5 

199 DATA 10, 30, 5, 15,5 

209 END 


În funcţie de valoarea unui număr se pot executa diferite secvenţe de 
program cu instrucțiunea ON. Pentru a verifica această instrucțiune se tas- 
tează un număr X de utilizator şi dacă pe ecran apare „ați bătut X*“ atunci 
funcționează corect. 


10 REM ''VERIFICARE ON — GOTO”! 
20 PRINT ''TASTATI UN NUMĂR” 
39 INPUT M 

409 ON M GOTO 80, 100, 120, 140, 160, 180, 200, 220, 240 
50 PRINT “ATI TASTAT 0” 

60 GOTO 20 

80 PRINT “ATI TASTAT 1” 

29 GOTO 20 

109 PRINT ''ATI TASTAT 2" 

119 GOTO 29 

129 PRINT "ATI TASTAT 3" 

139 GOTO 29 
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149 PRINT “ATI TASTAT 4” 
150 GOTO 20 

160 PRINT “'ATI TASTAT 5 
170 GOTO 20 

180 PRINT “ATI TASTAT 6” 
199 GOTO 20 

200 PRINT “ATI TASTAT 7” 
210 GOTO 20 

220 PRINT “'ATI TASTAT 8“ 
230 GOTO 20 

240 PRINT “ATI TASTAT 9 
240 GOTO 29 

260 END 


Utilizarea instrucţiunilor READ, MATREAD, RESTORE se exempli- 
fică în următorul program. A se observa că nu se ajunge niciodată la citirea 
valorilor 3 din blocul de date. tii. 


[EET 


10 REM “DATA, READ,'MAT READ'', 
20) READ A, B, C 

30 PRINT A, B, C 

40 READ A, B, C 

50 PRINT A, B, C 

60 RESTORE 

70 MAT READ D (6) 

80 MAT PRINT D 

29 STOP 

100 DATA 1, 1,1,2,2,2,3,8,8 
119 END 


Următorul puogram utilizează instrucțiunile cu şiruri de caractere. 


10 PRINT ''SUPRAFAȚA” 

15 PRINT "DREPTUNGHI, TRIUNGHI, CERC” 
20 INPUT S$ 

30 IF SS ="'DREPTUNGHI”' THEN 79 

40 IF SS ="TRIUNGHI” THEN 110 

50 IF S$ ="'CERC” THEN 169 

60 GOTO 29 

70 PRINT “DATI LUNGIMEA SI LATIMEA" 
80 INPUT B, C 

90 z=B*C 

100 GOTO 199 

110 PRINT “DATI LUNGIMILE LATURILOR” 
120 INPUT A, B, C 

130 S=(4A+B+0)/2 

140 Z=SQR (S* (S—A)*(s—B)*(S—C)) 

150 GOTO 199 

160 PRINT ''DATI RAZA” 

170 INPUT R 

180 Z=PI*R 42 

190 PRINT ''SUPRAFATA'; S$; ="; Z: 
200 GOTO 19 : 

210 END 


Apelul de subprogram scris în limbaj BASIC se face prin GOSUB nr. 
Prima instrucțiune RETURN întilnită provoacă revenirea la instrucțiunea 
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următoare instrucţiunii GOSUB executate ultima dată. În următorul program 
se verifică unele posibilități de salturi la subprograme în BASIC. Primul 
RETURN întîlnit la care nu există pereche GOSUB provoacă oprirea execu- 
tării în continuare a programului. 


20 REM “UTILIZĂRI GOSUB ŞI RETURN! 

25 REM "APEL SPR. LA PRIMA INTRARE” 

30 GOSUB 290 

35 PRINT ''REVINE DIN SPR 200” 

49 REM "APEL SPR. INTERIOR” 

50 GOSUB 210 

89 PRINT "REVINE DIN SPR 210” 

55 REM ''APEL SPR. 300 REVINE CU GOTO” 
69 GOSUB 309 

65 PRINT "REVINE AICI PRIN RETURN URMĂTOR 
70 PRINT ''REVINE PRIN GOTO DIN SPR 309” 
75 REM ''URM. RETURN E PRIMUL ÎNTÎLNIT”! 
80 REM ''DUPĂ GOSUB 300, REVINE DUPĂ EL” 
85 RETURN 

90 REM “AICI NU SE AJUNGE” 

25 STOP 

200 PRINT "INTRARE SPR. 299” 

210 PRINT ''CORPUL SPR. 200"! 

220 RETURN 

300 PRINT "INTRARE SPR. 300” 

319 GOTO 79 

400 END 


Pe ecran apare deci: 

Intrare spr. 200 

Corpul spr. 200 

Revine din spr. 200 

Corpul spr. 200 

Revine din spr. 210 

Intrare spr. 300 

Revine prin GOTO din spr. 300 
Revine aici prin RETURN următor. 


Utilizarea subprogramelor scrise în limbaj mașină e posibilă prin instruc- 
țiunea CAII. Următorul program în limbaj BASIG cheamă primul subprogram 
în eod mașină 


19 REM "CALL 
20 CALL (1) 
30 STOP 


Subprogramul scris în limbaj maşină se introduce în memoria calcula- 
torului deeodificat în hexazecimal, prin funcția S (substituție) din monitor. 

Se doreşte introducerea unui subprogram care să genereze în mijlocul 
ecranului caracterul A, diferit de caracterul A dat de generatorul de caractere 
al monitorului. Se cheamă subprogramul de iniţializare ecran al monitorului 
şi subprogramul de scriere caracter. 


CALL INITV 
LXI H, (ADR MIJLOC ECRAN TV) 


2% — Microcalculatorul personal aMIC — vol. II 
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LXI D, (ADR GENERATOR A PROPRIU) 
MVI A, 6 
CALL WR26 
RET 
CARGEN DB 6, 9, 9,F, 9,9%, 


Se va folosi următoarea secvență de substituire S: 


6400 Ș1 ; NR. SUBPROGRAM 
FF 66 ;ADR SPR 1 
FF ; SFIRSIT TABEL SPR 
66FF CD A4 2 ; CALL INITV 
21 A 50 ; LX1 H, 500A 
11 OE 67 ; LXI D, CARGEN 
sE 96 ; MVI A, 6 
CD 95 ge ; CALL WR26 
C9 ; RET 
670E£ 06 09 09 ; CARGEN PT. A 


Pentru verificarea funcţiilor grafice MOVE, DRAW se dau în continuare 
cîteva curbe specifice : 
a) O serie de curbe sinusoidale 


20 INIT P 
30 X=0 

49 Y=50 

50 Z=X 

60 MOVE X, Y 

70 FOR 1=0 TO 3*PI STEP P1/16 
80 DRAW Z, SIN (1)*254Y 

9 Zz=2+2 

190 NEXT 1 

1149 X=X+2 

120 Y=Y+2 

130 IF X <=26 THEN 50 

149 STOP 


b) O serie de cercuri care formează un con. A, B — coordonatele centru- 
lui primului cerc. 


20 READ A, B 

30 READ X, Y 

40 INIT P 

50 FOR T=1 TO 25 

60 MOVE A+T, B 

70 FOR I=1 TO 2*P1 STEP P1/19 
80 DRAW A+ T*COS (1), B4T*SIN (1) 
99 NEXT 1 

100 A=A+X 

119 B=B+Y 

129 NEXT T 

130 STOP 

149 DATA 10, 19, 5,5 

150 END 
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| | ce) Linii de lungimi variabile din cele patru colțurij alej ecranului 


19 INIT P 

20 MOVE 9, 0 

30 DRAW RND (X)*199, RND (X)*199 

490 MOVE 109, 1 

50 DRAW 109—RND (X)*199, 100—RND (X)*10v 
60 MOVE 9, 109 

79 DRAW RND (X)*100, 100—RND (3X)*109 


30 MOVE 199, 0 

90 DRAW Spa mana (3)*100, RND (X)*109 
199 GOTO 2 

119 END . 


Trasarea unei figuri cu insirucţiile BASIC RMOVE şi RDRAW şi rotirea 
figurii cu ROTATE. Se trasează un triinghi şi se roteşte acest triunghi. 


10 INIT P 

29 WINDOW —50, 50, —5p, 50 

25 MOVE 0, 0 

30 FOR U=0 TO 2*PI STEP PI/19 
35 ROTATE U 


49 RDRAW 10, 0 
45 RDRAW 10, 19 
55 NEXT U 

60 STOP 


Verificarea funcției WINDOW și VIEWPORT. Se trasează un cerc de 
o mărime dată la diferite valori pentru WINDOW şi VIEWPORT. Se observă 
că trebuie aleasă mărimea și zona ecranului în funcție de mărimea figurii, 


19 INIT P 
20 REM ''WINDOW SI VIEWPORT IMPLICIT” 
25 REM “0, 100, 0, 100 

30 REM "APARE PE ECRAN 1/4 CERC” 

49 GOSUB 200 

50 INIT P 

60 WINDOW —50, 50, —50, 50 

29 REM ''VIEWPORT IMPLICIT” 

75 REM “0, 100, 0, 109 

50 REM "APARE TOT CERCUL ÎN MIJLOC ECRAN” 
99 GOSUB 209 

199 INIT P 

110 WINDOW —50, 50, —50, 50 

120 VIEWPORT 50, 100, 50, 100 

130 REM "APARE CERCUL ÎN DREAPTA SUS”! 
140 GOSUB 200 

159 STOP 

200 MOVE 25, 0 

210 FOR 1=0 TO 2*PI STEP P1/19 

220 DRAW 25*C0OS (1), 25*SIN (1) 

230 NEXT 1 

240 FOR 1=1 TO 59 

250 REM ''TEMPORIZARE” 
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260 NEXT 1 
270 RETURN 
230 END 


Trasări de pătrate care se măresc; în video normal şi video invers. 


20 INIT P 
.30 PUT (34)=128 

40 GOSUB 190 

50 INIT P 

:60 PUT (34)=160 

70 GOSUB 100 

30 GOTO 20 

100 MOVE 50, 50 

119 FOR L=10 TO 109 STEP 10 
120 MOVE 59—L/2, 59—L/P 

130 RDRAW L, 0 

149 RDRAW 0, L 

150 RDRAW —L, 9 

160 RDRAW 0, —L 

170 NEXT L 

189 RETURN 

199 END 


Bateria de teste, odată trecută, ne dă posibilitatea de a opera cu Încredere 
cu exemplarul de aMIG. 
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ANEXA 3 


COLECȚIE DE PROGRAME PENTRU REZOLVAREA UNOR PROBLEME DE 
MATEMATICĂ DIN MATERIA CLASELOR A IX-A ȘI A X-A 


Proicctarea și realizarea microcalculatoarelor individuale în ţara noastră creează premisele 
necesare introducerii lor în învățămîntul liceal, în cadrul laboratoarelor de matematică, fizică , 
biologie, etc. 

Trebuie amintit faptul că în acest an a intrat în fabricaţie de serie, la Întreprinderea de 
memorii electronice din Timișoara, microcalculatorul aMIC. 

Ministerul Educaţiei și Învățămîntului a comandat circa o sută exemplare, care vor intra 
în acest an în dotarea unor instituții de învățămînt superior. Se prevede ca acțiunea de dotare 
să se extindă și la nivelul liceelor. 

Între timp, specialiștii în tehnica de calcul din țara noastră au proiectat noi tipuri de 
microcalculatoare individuale, dintre care se amintesc : HC-85, PRAE și DEGA-299. 

Interesant este microsistemul HC-85. care a fost proiectat la Catedra de calculatoare 
din Institutul Politehnic București și care va intra în curind în fabricaţie de serie la Întreprin- 
derea de Calculatoare Electronice. 

A vînd în vedere performanţele acestor calculatoare legate, de implementarea unor limbaje 
evoluate (BASIC, PASCAL, FORTRAN, MICROPROLOG, FORTH, etc.), posibilitatea de 
folosire a unui ecran color pentru vizualizare, cit şi faptul că ele vor putea intra în dotarea liceelor, 
în cele ce urmează se va prezenta o enlacţie de prozrame în BASIC, pentru asistarea studiului 
unor capitole de matematică din materia claselor a IX-a șia X-a. 


1, PROGRAME PENTRU CALCULE CU POLINOAME 


Se prezintă programe pentru : 
— împărţirea unui polinom de un grad oarecare n cu polinoame de gradul intii şi doi, 
ireductibile şi unitare în R, adică de forma ; x+a și x42+px+q, 
— calculul valorii unui polinom, 
— calculul rădăcinii reale a unui polinom într-un interval dat, știind că la capetele inter- 
valului [a, b], polinomul ia valori de semne contrare şi că în acest interval funcția polinomială 
este strict monotonă. 


1.1. PROGRAM PENTRU ÎMPĂRȚIREA UNUI POLINOM CU UN BINOM 


Fie polinomul : 
n 
y, a;x"-! și binomul: x+a. 
i=0 
n 
Considerind citul de forma : y, b;x"-1 şi restul de forma : buza rezultă următoarele : 


i=l 


n n 
y, a xi = | X) Doxai *(x+a)+ ba sau 
i=0 i=0 


n n 
y, Ap =by zi ti y, (birt ab) x". 


1=0 10 
Prin identilicare se obțin următoarele relaţii : 
bs=0 
a; =bua+ a-b, pentru 1=09, Î; 2 aaa 
sau : 
bau =a—a-b; 
şi restul: 


buua=a;—a-b; 
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20 PRINT “introduceți gradul n ai polinomului” 
39 INPUT n 

40 PRINT “n=“”j n 

50 PRINT “introduceți coeficienții polinomului SUMA” 
(a(i)*xA (n—1)) 

60 DIM a (2*n) 

65 DIM b (2*n) 

79 FOR i=0 to n 

SO PRINI “a(“; 3; = 

85 INPUT a (i+1) 

90 PRINT a (i+1) 


160 NEXT i 

110 PRINT “introduceţi termenui liber a al divizorului” 

120 INPUT a 

130 PRINT “a=“; a 300 REM afisare rezultate 

200 REM calculul citului 310 FOR i=1 TOn 

210 b (1)=0 320 PRINT “b(;i;)=%;b”i+1) 
220 FOR I=1 TO n+i 330 NEXT i 

230 LET b (i+ 1)=a ()—a*b (Î) 340 PRINT *r=*; b(n+2) 

240 NEXT i 350 END 


1.2. PROGRAM PENTRU ÎMPĂRŢIREA UNUI POLINOM DE GRADUL n CU 
WRINOMUL x î 2i-pa-q. 
Se consideră : 
n 
— polinomul de forma ! > aa 
(m 9 
n 
— citul de forma: > baz? 
i=0 
— restul de forma rx+s, 
prin identificare, din relaţia : 


n n 
Şi 84 X%t== ( Ş b msi » (x72-+px+ q)+rx+s 
i=0 1==0 


se obţin următoarele rezultate : 
bo=0 r=bau 
b=1 S=buşat PDaza 
bea = at — Pbia — gh 


10 REM împărțirea unui polinom de gradul n cu un trinom 
20 PRINT “introduceţi gradul n al polinomaului” 

30 INPUT n 

40 PRINT 'mn=”; n , 

50 PRINT “introduceţi coetficlenţii polinomului SUMA (a (i) * x (n—1))” 
60 DIMA (2*n) 

65 DIMB (2*n) 

70 FOR i=0 TOn 

80 INPUT a (i+1) 

90 PRINT “a (“; i; 0)="1 a (141) 

100 NEXT i 

200 PRINT “introduceţi coeficienţii divizorului x*2+p.x+ q” 
210 PRINT “introduceţi p” 

220 INPUT P 

225 PRINI 'p=“3 P 

230 PRINT “introduceţi q” 

240 INPUT q 

250 PRINT “q=”; q 

300 REM calculul coeficienţilor citului 
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310 LET b (1)=0 410 FOB i—2 TO n 

320 LET b (2)==0 420 PRINT “b(; i; ="; b(i1) 
330 FOR i=1 TO n+i 430 NEXT i 

349 LET b (i+2)=a (i)—p*b (+ 1)—q*b (î) 440 PRINT 'r="”; b(n+2) 

350 NEXT i 450 PRINT “s="”; b(n+3)+p*b (n 2) 
400 REM afișare rezultate 590 END 


1.3. PROGRAM PENTRU CALCULUI VALORII UNUI POLINOM BE GRADUL n 


Programul folosește algoritmul lui Horner pentru calculul valorii polinomului + 


[.] 
P (x)-+ Ş, aa! 
i=0 


Polinomul P (x) poate fi scris și sub următoarea formă : 
P(5)=anţx (e .Fă (azba (arh a (20))).....) 


Calculul începe cu produsul cu cel mai mare grad de imbricare x-a. 
10 REM calculul valorii unui polinom de gradul n 

20 PRINT” introduceţi gradul n al poiinomului” 

30 INIT n 

40 PRINT “n=”; n 

50 PRINT “introduceţi coeficienţii polinomului SUMA (a(î)*x + (n—i))” 
60 DIM a (2*n) 

70 FOR i=0 TO n 

30 INPUT a (i+1) 

90 PRINI “a (i) ai(0+4- 1) 

100 NEXT i 

110 PRINT “introduceți valoarea lui x“ 

120 INPUT x 

130 PRINP//x= i: x 

200 REM calculul valorii polinomului prin metoda Ho rner 
210 LET p=a (1) 

220 FOR i=1 TO n 

230 LET p=p*x+a (i+1) 

240 NEXT i 

300 REM alişarea rezultatului 

310 PRINE ps 9 p 

320 END 


1.4. STABILIREA SOLUȚIEI UNEA ECUAŢII PRIN METODA DIHOTOMIEI 


Se ştie că dacă funcţia f este continuă și strict monotonă în intervalul (a, b] și dacă £ (a)y» 


-t (b)<0, atunci ecuaţia : £ (x)=—0 are o rădăcină unică în (a, b]. 


Dacă e este un număr pozitiv şi dacă xse[a, b], iar f (a —e):f (xg+-e)<0, atunci x, este 


o rădăcină a ecuaţiei date cu o precizie e. 


Calculul numeric al produsului î (xg—e):f (xp-> e) este în general aproximativ. Se impune 


ca precizia să [ie suficientă pentru ca 


1 (xp—e)*! (2e-b e)a0. 
Se consideră jumătatea intervalului [a, b] i c=(a-b b)/2 şi se testează semnul lui f (a) « 


= (c). Dacă f(a)-f (c)<0, rădăcina aparţine lui [a, e], în caz contrar aparține lui [c, b]. 


Se construiesc următoarele intervale : 
lay, bo]=(a, b] 


a [a, c], dacă î(a).t (c)<0 
"“Ule, b], dacă £(ajt(e)>0 
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Lungimea intervalului [a„, b„] este (b—a)/2 4 n. Dacă se dorește o precizie e, atunci 
este suficient să se construiască [ax, b„] pentru un n astfel încît (b—a)/24 n<e. 


10 REM stabilirea soluţiei unei ecuaţii folosind metoda dihotomiei 

20 PRINT “introduceţi datele: a=lim. stinga; b=—lim. dreapta; e=—precizia” 
30 INPUT a 

35 PRINT “'a=*; a 

40 INPUT b 

45 PRINI “b=*; b 

40 INPUT e 

50 PRINT “e=”; e 

51 PRINT “introduceţi gradul n al polinomului” 


52 INPUT n 

56 PRINT “m=";n 

58 PRINT “introduceţi coeficienţii” 130 IF d=0 THEN 200 
60 DIM a (2*n) 140 IF d<0 THEN 160 
62 FOR i=0 TOn 150 LET -a=c 

64 INPUT a (i+1) 153 LEI = 

66 PEINI “a; 1; "= ai) 155 GO TO 170 

68 NEXT i 160 LET b=c 

80 REM calculul lui (a) si î (b) 165 LET y=z 

90 LET c=a 170 IF b-a > e THEN 100 
92 GO SUB 1210 200; PRINT 'c="; e 

94 LET x=z 210 STOP 

96 LET c=b 1210 LET p=a (1) 

98 GO SUB 1210 1220 FOR i=1 TO n 

99 LET y=z 1230 LET p=p*ce+a (i+1) 
100 LET c=(a+b)/2 1240 NEXT i 

110 GO SUB 1210 1250 LET z=p 

120 LET d=x*z 1260 RETURN 


2. CALCULUL INTEGRALEI DEFINITE PRIN METODA SIMPSON 


Pentru calculul integralei definite se folosește formula : 


s=$2 £ (x)e dx = (h/3)e [(Yot Yap)t 4 (at Ya e et Ya) 2 (Vot Ya e e -F Yap-2) 


unde : 
h = (%2p—X0)/2-p este pasul, 
p = numărul de diviziuni. 
y = f (x) se dă la linia 500 din program; în cazul de față 
y= ((a—2):x—1)%x+2. 


10 REM CALCULUL INTEGRALEI DEFINITE 
20 PRINT 'X0="; 


30 INPUT D 

40 PRINT *N2P=”* 

50 INPUT E AIA 

60 PRINT “P="; p 

70 INPUT P 170 GOSUB 500 

80 B=(E—D)/2/F 180 A=Y+A 

90 A=0 190 F=F-—1 

100 X=D 200 IF F=0 THEN 220 
110 GOSUB 500 210 GO TO 40 

120 A=Y+A 220 C=A*B/3 

130 X=X+B 230 PRINT “REZ=* ; C 
140 GOSUB 500 240 STOP 
150X=4%*Y+4A | 500 Y=((X—2)*X—1)*X+2 


160 X=X+B = 510 RETURN 


EDITURA TEHNICĂ 


icontinuăre de 1 vol. ST 


ăi Un număr la tel de important de programe, din. toate domeniile de apli- 
"caţie, rezolvă probleme simple și complexe de matematică-fizică din in-: 
dustrie și învățămint (aici este inclus și un înidrumar pentru predarea mate- 
maţicii asistate de calculatorul personal) 7 alte ptograai rezolvă loturi, şă 
trasează gratice și figuri etc. as . e 
 Specialiștilor le. atragem atenția asupra existenței “ comenzilor pentru a 
toate tipurile de monitoare aMIC și — în arest context = asupra expunerii 
„complete a mie dpi ietearbiui 280, cum și a. uneia succinte a iei PEOEI- 
soarelor 8080. 
e Sin incluse programe de tectaie şi ji de depanare, ca și uter. 
„concrete la perifericele- utilizabile cu. MIC - dle dă televizoare s 
"SPORT, de exemplu), “casete ș.a. gt 
. Editura Tehnică. 'se mindrește cu pere ea sa. de, pionierat în sprijinirea 
introducerii intensive, a calculatoarelor personale. românești. și recomandă. . 
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și a altor cărți de informatică, inclusiv a. „volumelor din seria etate AMC 
(Aiae NISE AA Nei ncac ie danediei 
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EX 
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